精华内容
下载资源
问答
  • 怎么改变VB中文本框字体颜色?为所选颜色上色。要使用此属性,必须首先将flags属性设置为cdlccfeffects。...如何在VB中更改文本框的字体颜色如果使用VB标准文本框控件,则无法实现所需的功能,因为其中的文本是纯...

    怎么改变VB中文本框字体颜色?

    为所选颜色上色。要使用此属性,必须首先将flags属性设置为cdlccfeffects。Fontbold是否选择了粗体。Fontitalics是否选择了斜体。Fontstrikethru是否选择了删除线。Fontunderline是否选中下划线。字体名称选定字体的名称。如何在VB中更改文本框的字体颜色

    如果使用VB标准文本框控件,则无法实现所需的功能,因为其中的文本是纯文本,并且没有格式化。红色的一部分和另一部分的颜色是不可能改变的。建议您使用“富文本框控件”,即RichTextBox。不仅可以使用不同的颜色,而且可以在同一个文本中使用不同大小、粗细和样式的字体,甚至可以插入图片,这具有word文档的基本功能。

    VB中如何改变文字颜色?

    将组合框和文本框控件添加到VB并输入以下代码。

    在表单中添加字体大小值到加载中的组合控件。

    私有子表单_Load()

    Combo1。添加项目“12”

    组合1。添加项目“14”

    组合1。AddItem“16”

    end sub

    在文本框中键入任意单词,然后单击Combo1值,同时更改text1文本大小。

    私有子组合1_Click()

    文本1。字体大小=组合1。Text

    VB文本框中,怎么改变字体大小?

    “控制文本框text1,五个按钮command1到command5private sub command1,Click()”increase font text1.fontsize=text1.fontsize 1end subprivate sub command2Click()“如果文本1,缩小字体。Fontsize&gt 2然后文本1。Fontsize=文本1。字体大小-

    展开全文
  • 一个任意复制的VB文本框,点击窗体上按钮可将上方文本框内的文字复制到下边的文本框中,但是实际上,你之前所对Windows剪切版所做的操作并没有被撤消。有意思吧?
  • 利用vb文本框中现实单击窗体的次数,源代码
  • 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局在窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集、字型等。运行的效果如上图所示。
  • 展开全部1、首先我们打开vb6.0软件进入到标准”工程1“界面,这些32313133353236313431303231363533e78988e69d8331333433626538比较简单,就不一一上图了,在”form1“窗口上加载一个文本框”text1”如图。2、文本框...

    展开全部

    1、首先我们打开vb6.0软件进入到标准”工程1“界面,这些32313133353236313431303231363533e78988e69d8331333433626538比较简单,就不一一上图了,在”form1“窗口上加载一个文本框”text1”如图。

    2、文本框加载好以后,需要在右边属性界面设置它的高度和宽度。

    3、点击属性界面的“height”设置文本框“text1”的高度为2000,再点击“width”设置文本框“text1”的宽度为2500如图。

    4、然后再在文本框“text1”下面加载一个水平滚动条,然后设置水平滚动条的属性最大值“max“为2500”value“的值也为2500,最后更改水平滚动条的名称为”h1“如图。

    5、然后把水平滚动条的最大位移量(largechange)设置为20最小位移量(smallchange)设置为2如图。

    6、按照上面的方法,我们再把垂直滚动条加上,设置它的属性最大值为2000"value"值为2000,更改垂直水平条名称为v1,再设置垂直水平条最大位移量为20最小位移量为2如图。

    7、然后是给这个工程编写程序:

    PrivateSubh1_Change()

    Text1.Width=h1.Value(文本框的宽度等于水平滚动条的value值)

    EndSub

    PrivateSubv1_Change()

    Text1.Height=v1.Value(文本框的高度等于垂直滚动条的value值)

    EndSub

    8、即可随意调整文本框大小,拉水平滚动条文本框会宽度会随水平滚动条改变,拉垂直滚动条文本框高度会随垂直滚动条改变。

    展开全文
  • vb语言实现的功能 实现的窗体文本框的下拉和弹出式菜单
  • VB窗体主菜单中动态添加菜单项,在窗口的“菜单”中可自定义随时添加一个菜单项,在文本框中输入菜单文字即可,程序会以输入的文字为菜单名称新建一个菜单。
  • vb-透明背景文本框

    2011-08-17 00:54:10
    文本框窗体的背景图片中透明,文本框窗体的背景图片中透明,
  • 对于判断窗体中文本框是否为空以及一次性清空文本框内容这一问题,我们需要在UI层中建一个公共类,将相应的定义与函数写在该类中。 操作二: 1、在新建的公共类TextModel中声明公共内容部分: <s

    【前言】
    第二次基础机房收费系统,在很多系统优化方面有了更多的认识,对于窗体中文本框内容是否为空的提示以及一次性清空其内容,这些在第一次的机房收费系统中进行了尝试,在这次的机房收费系统个人重构的过程中,再次产生了这一方面的需求,如何减少代码的重复率,于是对该方面进行了探究。

    【具体操作】
    操作一:
    对于判断窗体中文本框是否为空以及一次性清空文本框内容这一问题,我们需要在UI层中建一个公共类,将相应的定义与函数写在该类中。
    在这里插入图片描述

     操作二:
     1、在新建的公共类TextModel中声明公共内容部分:
    
    <span style="font-size:18px;">Imports System.Windows.Forms.Control
    Imports System.Object
    Public Class TextModel
     
        '定义一个结构体Term
        Public Structure Term
            Dim controlSub As System.Windows.Forms.Control
            Dim strText As String
            Sub New(ByVal controlSub As System.Windows.Forms.Control, ByVal strText As String)
                With Me
                    .controlSub = controlSub
                    .strText = strText
                End With
            End Sub
        End Structure
     
        '用结构体定义一个Term类型数组
        Public Shared arrayControl() As Term</span>
    
     2、判断文本框中内容是否为空
     (1)在公共类中TextModel类中写入相应的函数
    
    <span style="font-size:18px;"> '判断文本框是否为空的函数
        Public Shared Function CIsEmpty(ByVal ArrayControl() As Term) As Boolean
     
            '定义一个term变量
            Dim termControl As Term
     
            '遍历结构体数组中所有的元素, 如果文本框为空, 则进行相应的提示
            For Each termControl In ArrayControl
     
                If TypeOf termControl.controlSub Is System.Windows.Forms.TextBox Then
                    If termControl.controlSub.Text.Trim = "" Then
                        Windows.Forms.MessageBox.Show(termControl.strText & "不能为空", "提醒", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Exclamation)
                        termControl.controlSub.Focus()
                        Return True
                        Exit Function
                    End If
                End If
     
            Next
        End Function</span>
    
      (2)在实际窗体中,例如在frmOnlineRecord窗体中判断文本框中内容是否为空
    
    <span style="font-size:18px;">Public Class frmOnlineRecord
     
        '对定义的结构体进行初始化处理,定义一个过程Rdim(),来完成该功能
        Private Sub Rdim()
            ReDim Preserve TextModel.arrayControl(1)
     
            TextModel.arrayControl(0) = New TextModel.Term(txtCardID, "卡号")
        End Sub
     
        Private Sub btnInquire_Click(sender As Object, e As EventArgs) Handles btnInquire.Click
     
            '调用Rdim过程进行数组初始化
            Call Rdim()
            If TextModel.CIsEmpty(TextModel.arrayControl) = True Then
                Exit Sub
            End If
       
       End Sub
     
    End Class</span>
    
    3、一次性清除文本框中的内容
    

    (1)在公共类TextModel中写入相应的函数

    <span style="font-size:18px;"> '设置对文本框一键清除
        Public Shared Function AllEmpty(ByVal arraycontrol() As Term) As Boolean
            Dim termControl As Term
     
            For Each termControl In arraycontrol
                If TypeOf termControl.controlSub Is Windows.Forms.TextBox Then
                    termControl.controlSub.Text = ""
     
                End If
            Next
            Return True
        End Function</span>
    
    (2)在对应窗体中调用 AllEmpty函数,实现一次性清除文本框中的内容
    
    <span style="font-size:18px;"> Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
            Me.Hide()
     
            '调用Rdim(过程及AllEmpty函数)
            Call Rdim()
            If TextModel.AllEmpty(TextModel.arrayControl) Then
                Exit Sub
            End If
        End Sub</span>
    

    【学习感悟】
    就像米老vb.net教程

    师跟我们说过:从此,我们要c#教程开始不将就。有不满意的部分,就需要我们去改变,做到更好。这个过程需要我们积极地去探索,最怕的就是“就这样吧”、“凑活吧”、“差不多就行了”,因为一旦有了这样的心理,我们很难再有新的发现。在机房重构的过程中,自己想到了如何解决文本框的问题,在网上找了一点资料后没有找到想要的内容,想要去找python基础教程别的同学寻求帮助的时候,硕硕和宋荣凯对我说:网上有很多该方面的资料,自己找找看。很感谢他们给我一个自己探索的机会,正是在这样的情况下,才产生了意想不到的收获!

    展开全文
  • VB.NET窗体的KeyPreview属性

    千次阅读 2013-09-29 15:46:18
    比如Form1和其内的文本框Text1都准备响应keyPress事件,那么以下代码将首先激活窗体的keyPress事件:   Private Sub Form_Load()  Me.KeyPreview = True End Sub Private Sub Form_KeyPre

    如果把窗体的keyPreview属性设置为true,那么窗体将比其内的控件优先获得键盘事件的激活权。比如Form1和其内的文本框Text1都准备响应keyPress事件,那么以下代码将首先激活窗体的keyPress事件:

     

    Private Sub Form_Load()
        Me.KeyPreview = True
    End Sub

    Private Sub Form_KeyPress(KeyAscii As Integer)
        MsgBox "这是窗体的KeyPress事件"
    End Sub

    Private Sub Text1_KeyPress(KeyAscii As Integer)
        MsgBox "这是文本框的KeyPress事件"
    End Sub

    展开全文
  • net窗体编程模式, 包括介绍读取和改变窗体内的信息等方面。 到现在为止, 我们讨论的只是如何创立和访问窗体实例, 而没有涉及如何读取或改变... 与其直接访问窗体中的文本框、按钮等控件, 还不如添加一个public属...
  • 以下代码在窗体 程序代码:    Option Explicit ’石陆软件屋 Private Sub Form_Load() g_hOldProc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf WndProc) End Sub Private Sub ...
  • 窗体中新建RichTextBox控件 1. 让文本框始终显示在最后一行:  Tipbox.SelectionStart = Len(Tipbox.Text) '获取文本结尾位置  Tipbox.ScrollToCaret() '将控件的内容滚动到当前插入符号位置。 2. ...
  • vb窗体程序设计实例

    千次阅读 2015-01-03 20:03:00
    窗体2:一个文本框 窗体1代码 窗口名称Form1,标签1,2分别为Lbl1,Lbl2,确定,取消按钮为,cmd1,cmd2,用户名文本框和密码文本框为txt1,txt2 Private Sub Cmd1_Click() '确定按钮鼠标单击事件代码 If txt1....
  • vb.net & 文本框为空提示,一键清空文本框所有内容

    千次阅读 多人点赞 2014-07-19 17:29:02
    已经第二次机房收费系统重构了,一遍当然得有一遍的效果,正如对于文本框为空的提示方法,回顾第一遍机房,那些傻里...在Model窗体中,建立一个封装数组,当窗体中需要判断大量文本框为空的时候,只需简单的调用即可。
  • 一般系统都没有RICHTX32.OCX这个文件的,安装了vb6精简版后也没有,而这个控件我们经常使用的,功能比vb标准的文本框控件强大多了。 使用方法: 1.下载下来解压 2.复制到系统目录,一般为c:\windows\system32 3.在...
  • 摘要:VB源码,控件组件,窗体控件  Vb窗体常用控件综合实例,教你一些复选框、单选框、输入框、下拉选择框以及文本框的使用方法,并介绍如何让他们互相关联的方法,虽然简单,但挺实用。
  • VB实现字体的单项选择,选择字体应用于Textbox文本框窗体上设置三个按钮,单击相应的按钮可将文本框中的字体样式修改为选择的字体,点击三个按钮后,分别对应执行下列按钮动作:  Private Sub Option1_Click()  ...
  • VB窗体中的按钮应用实例,主要是练习按钮的使用,文本框是一个文本编辑区域,用户可以在该区域输入、编辑、修改和显示正文内容,即创建一个简单的文本编辑器。
  • 房收费系统的时候,令人相当恶心的一件事就是判断文本框和组合框是否为空还有清空文本框。基本上每个窗体都要进行判断,那一个接着一个的If...Else...语句,长长一串,看着就头疼,但是第一次做机房收费系统的...
  • Vb窗体常用控件综合实例,教你一些复选框、单选框、输入框、下拉选择框以及文本框的使用方法,并介绍如何让他们互相关联的方法,虽然简单,但挺实用。
  • VB.NET 用循环判断文本框是否为空

    千次阅读 热门讨论 2015-11-25 16:35:19
    第一次敲机房的时候,有很多窗体中都有清空文本框或组合框中内容的功能,当时用了循环来做。现在第二次机房重构,发现判断文本框、组合框内容是否为空也可以用循环。其实这些功能最直接的方法就是一个一个的判断,...
  • VB窗体中的按钮应用实例,主要是练习按钮的使用,文本框是一个文本编辑区域,用户可以在该区域输入、编辑、修改和显示正文内容,即创建一个简单的文本编辑器。
  • VB.NET 完美解决判断文本框、组合框为空问题

    千次阅读 热门讨论 2012-02-24 16:16:56
    第一种:判断窗体中所有文本框、组合框是否为空。第二种:判断一部分文本框、组合框是否为空。下面看看我是如何实现这两种情况的。 第一种:判断窗体中所有文本框、组合框是否为空。 ''' <summary> '...
  • 判断文本框、组合框为空问题无非两种情况。第一种:判断窗体中所有文本框、组合框是否为空。第二种:判断一部分文本框、组合框是否为空。下面看看是如何实现这两种情况的。

空空如也

空空如也

1 2 3 4 5 ... 16
收藏数 302
精华内容 120
关键字:

vb文本框窗体