精华内容
下载资源
问答
  • 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局在窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集、字型等。运行的效果如上图所示。
  • VB窗体标题栏中添加自定义按钮,类似最大化,最小化按钮一样,美化一下,看不出是用户添加的按钮,当然,本例是只是简单的进行了美化。
  • 内容索引:VB源码,界面编程,字体,窗体实例 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局在窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集...
  • 摘要:VB源码,字符处理,文本框 一个任意复制的VB文本框,点击窗体上按钮可将上方文本框内的文字复制到下边的文本框中,但是实际上,你之前所对Windows剪切版所做的操作并没有被撤消。有意思吧?
  • VB文本框TEXTBOX文字垂直居中

    热门讨论 2008-08-25 16:57:39
    VB文本垂直居中,主要是为了补TEXTBOX不能垂直居中的不足
  • vb语言实现的功能 实现的窗体文本框的下拉和弹出式菜单
  • Call 清空所有文本框内容 End Sub Private Sub 清空所有文本框内容() Dim oAs Object For Each oIn Me.Controls If TypeName(o) = "TextBox" Then '隐藏所有TextBox控件 obj.Text = "" End If Next End Sub ...

    Private Sub Form_Load()
    Call 清空所有文本框内容
    End Sub
    Private Sub 清空所有文本框内容()
    Dim o As Object
    For Each o In Me.Controls
        If TypeName(o) = "TextBox" Then 
           o.Text = ""
        End If
    Next
    End Sub
     

    VB中其他类型:

     

    Data
    FileListBox
    DirListBox
    DriveListBox
    Timer
    VScrollBar
    HScrollBar
    ListBox
    ComboBox
    OptionButton
    CheckBox
    CommandButton
    Frame
    TextBox
    OLE
    Image
    Line
    Shape
    Label

    展开全文
  • 利用vb文本框中现实单击窗体的次数,源代码
  • VB带有滚动条的窗体

    2013-01-26 11:25:47
    一款在窗体上增加了滚动条的源代码,就想记事本那样可以上下翻看!
  • 可以自己定义程序窗口滚动条的风格样式、包含滚动条颜色、立体效果、重绘颜色等,程序中包含有几个类文件,支持drop-down窗体...
  • 你必须掌握的VB窗体知识

    千次阅读 2020-09-16 09:55:57
    VB6之中,窗体是应用程序的重要组成部分,一个窗体对应一个窗口。在程序设计阶段,窗体是程序员的“工作台”,程序员在窗体上建立应用程序界面,在运行程序时,窗体是用户与计算机的交互界面。 窗体VB中一类重要...

    窗体的概念

    在VB6之中,窗体是应用程序的重要组成部分,一个窗体对应一个窗口。在程序设计阶段,窗体是程序员的“工作台”,程序员在窗体上建立应用程序界面,在运行程序时,窗体是用户与计算机的交互界面。

    窗体是VB中一类重要的对象,作为对象,窗体同样具有自己的三要素:属性、事件和方法。此外,窗体还作为其它控件的容器,用于放置其它控件。

    在保存工程时,窗体会与工程文件保存在同一级目录下,窗体的扩展名为.frm格式,而工程的扩展名为.vbp格式。

    窗体的常用属性

    Name(名称)属性

    Name属性用于设置窗体的名称,在窗体被创建时,默认名称为Form1、Form2等。Name属性只能在属性窗口修改,所有控件的Name属性都在属性窗口的第一行。在使用对象属性、事件和方法时,务必确保使用了正确的Name名称。
    在这里插入图片描述

    例如,以下是Form1窗体在修改Name名称前和修改Name名称为frm1后,调用隐藏该窗体的方法语句对比:

    Form1.hide    ' 修改Name名称前
    frm1.hide     '改Name名称为frm1后
    

    Caption属性

    Caption属性用于设置窗体的标题,默认情况下,窗体Caption属性与Name属性一致。可以根据需要修改为其它标题,修改方法为:

    窗体名称.Caption="自定义标题"   
    

    Caption属性可以修改,也可以读取。读取Caption属性的方法为:

    变量名称=对象名称.Caption    '将对象名称赋值给变量
    

    获取其它可读属性值的方法与此语法一致。

    Height和Width属性

    Height和Width属性用于设置窗体的高度和宽度。默认单位是twip,1twip=1/567cm。通常使用twip单位设置即可。例如:

    Form1.Height=2000      '设置Form1窗体的高度为2000twip
    Form1.Width=3000       '设置Form1窗体的宽度为3000twip
    

    Left和Top属性

    Left和Top属性用于设置窗体在屏幕中的位置,Left是指窗体左上角距离屏幕左边的距离,Top是指窗体左上角距离屏幕上边的距离。如果是其它控件,如Commmand1按钮,则其Left和Top表示控件在窗体中的位置。具体关系如下图所示。

    在这里插入图片描述

    Enabled属性
    Enabled属性用于设置窗体(包含窗体中的控件)是否可被用户操作。默认值为True可用,当设置为False时,则禁止用户对窗体进行操作。语法为:

    ![Form1.Enabled=True  '设置窗体Form1为允许操作](https://img-blog.csdnimg.cn/20200916095249986.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl8zOTQzMzI5Mw==,size_16,color_FFFFFF,t_70#pic_center)
    
    

    ForeColor和BackColor属性
    ForeColor属性为窗体显示文本的颜色,BackColor用于设置窗体背景颜色。设置颜色的方法有三种方法,以黑色为例:

    方法一:Form1.BackColor=vbBlack    
    方法二:Form1.BackColor=QBColor(0)  
    方法三:Form1.BackColor=RGB(0,0,0)
    

    方法一中,vbBlack在VB中是表示颜色的常量,代表黑色,类似的常量还有vbGreen绿色,vbBlue蓝色,vbYellow黄色,vbRed红色等。

    方法二中,QBColor(参数),其中参数范围是0-15之间的整数,代表不同的颜色,参数为0时代表黑色

    方法三中,RGB(参数1,参数2,参数3),参数1、2、3范围分别是0-255之间的整数。

    Icon属性

    Icon属性可以为窗体指定一个图片作为窗体左上角的显示图标,同时也作为显示在任务栏中的图标。图片格式必须为.ico格式。

    AutoRedraw属性

    该属性为False时,窗体在变动后(移动窗体、最大化最小化窗体、加载窗体等),用print方法打印的文本,将不会被自动重画,效果是窗体上用print方法打印的文本在窗体变动时将被清除。当设置为True时,使用print打印的文本会被自动重画,而不会被清除,或者说清除后又被重新打印了。此方法同样适用于在窗体上绘图。

    窗体常用事件

    Load事件

    Load事件是窗体的加载事件,当一个窗体被加载到内存时,会触发Load事件。可以利用Load事件,初始化窗体级的变量,设置控件的属性值。

    Unload事件

    当一个窗体从内存中卸载时,将触发Unload事件。

    Initialize事件

    Initialize事件为窗体初始化事件,当应用程序创建窗体实例时会发生该事件。对于窗体而言Initialize事件发生在窗体的Load事件之前。通常可以利用 Initialize事件初始化窗体所用数据。

    Activate事件

    当一个窗体变为活动窗体时,即当窗体获得焦点时,将会触发该事件。

    Deactivate事件

    与Activate事件相反,当窗体不再是活动窗体,即失去焦点时,将触发本事件。

    Click事件

    单击窗体时,触发此事件

    DbClick事件

    双击窗体时,触发本事件

    窗体常用方法

    Cls方法

    Cls方法用于清除窗体重利用print方法打印的文本,不会清除窗体中控件及控件内的文本。语法为:

    Form1.Cls    
    

    Show方法

    Show方法可以显示一个窗体,该窗体如果没有被加载到内存中,将会优先触发一次Load事件。使用Show方法后,窗体将会优先于其它窗体显示在最前面。语法为:

    Form1.Show
    

    Hide方法
    Hide方法用于隐藏一个窗体,仅将窗体隐藏起来,但是不会从内存中卸载,窗体上的参数仍然保存在内存中,使用Show方法重新显示窗体后,窗体与隐藏之前保持一致。语法为:

    Form1.Hide
    

    Load方法
    Load方法用来将窗体加载进内存,将会触发窗体的Load事件,但是窗体未被显示。该方法同样适用于其它控件。语法为:

    Load Form1
    

    Unload方法
    用来卸载窗体,将窗体所使用的参数从内存中卸载,包括窗体中的所有控件,卸载后,将不会再占用计算机内存资源。使用Unload方法后,窗体将会达到Hide方法的隐藏效果。该方法同样使用于其它控件。语法为:

    Unload Form1
    

    如何创建多窗体
    通常新建一个工程后,系统会为我们自动创建一个窗体,默认名称为Form1,此时当我们项目需要再创建一个窗体时,可以通过菜单栏——工程——添加窗体,在弹出的添加窗体窗口中,选择默认窗口,即可创建一个新的窗体。或者可以,在工程资源管理窗口中,在Form1窗体上右键——添加——添加窗体。
    在工程资源管理窗口中,双击窗体,即可进入该窗体的编辑界面。

    在这里插入图片描述

    删除窗体
    删除不需要的窗体,通过在工程资源窗口,选中需要删除的窗体,右键——移除。

    窗体实战练习题
    目标:通过本练习,基本掌握熟悉窗体属性、事件和方法的使用方法。

    步骤一:
    按照下图,建立两个窗体。并分别将Name名称属性修改为:frmLog和frmMain,并将窗体的Caption标题属性修改为“登录界面”和"主界面"

    在这里插入图片描述

    步骤二:
    在第一个窗体,frmLog窗体上,新建一个命令按钮,并将Caption属性修改为"登录"。

    在这里插入图片描述

    步骤三:
    双击登录按钮,在其事件过程中写入如下代码:

    frmMain.Show   '显示frmMain窗体
    Me.Enabled = False  '禁止frmLog窗体再被操作
    

    在这里插入图片描述

    Me代表当前窗体的名称,此处即frmLog,可以用frmLog代替。

    步骤四:
    在第二个窗体(frmMain)编辑窗口中,按照下图所示,建立1个Text文本框和5个命令按钮控件。

    在这里插入图片描述

    步骤五:
    进入frmMain窗体代码编辑窗口,按照下图在对应的事件过程下编写如下代码:

    在这里插入图片描述

    其中End语句,是退出应用程序,即该应用程序包含的所有窗体和控件将会全部从内存卸载。

    步骤六:
    运行程序,测试效果。单击窗体左移,窗体将向左移动,移动距离为text1文本框中的数值,同样的单击窗体右移,窗体将会右移。修改text1文本框数值为200,单击隐藏窗体,窗体被隐藏,在frmLog窗体中单击登录,frmMain窗体重新打开,且Text1文本框内的数值仍是200,单击卸载窗体,窗体被关闭,再次打开后,Text1文本框内数值变为初始值100,这就是hide与Unload方法的区别。单击退出按钮,整个应用程序被关闭。

    在这里插入图片描述

    好了,本节课程到此结束,相信大家通过本节课程,已经对于窗体有了一个全面且深刻的认识了。下节课我们再见吧。

    展开全文
  • VB实现窗口文字大小随窗体大小变化,实现了窗体文字的随窗口大小自适应改变,只要用鼠标拖动窗口的大小,即可改变窗口内所属控件的文字大校自适应大小的窗口框架,注意,把需要随窗体改变大小的空间的tab属性设置成 ...
  • vb.net & 文本框为空提示,一键清空文本框所有内容

    千次阅读 多人点赞 2014-07-19 17:29:02
    已经第二次机房收费系统重构了,一遍当然得有一遍的效果,正如对于文本框为空的提示方法,回顾第一遍机房,那些傻里...在Model窗体中,建立一个封装数组,当窗体中需要判断大量文本框为空的时候,只需简单的调用即可。

         已经第二次机房收费系统重构了,一遍当然得有一遍的效果,正如对于文本框为空的提示方法,回顾第一遍机房,那些傻里傻气的If语句让自己对代码的亲和度大打折扣啊!那么到底有什么办法解决那些重复性的判断呢?这时候我们就要提到所谓的Model窗体了。在Model窗体中,建立一个封装数组,当窗体中需要判断大量文本框为空的时候,只需简单的调用即可。

    新建一个Model类,来存放公共需要的部分。

    1、定义一个结构体Term,且用结构体封装一个数组

     Public Structure Term   '定义结构体term
            Dim controlSub As Control
            Dim strText As String
            Sub New(ByVal controlSub As Control, ByVal strText As String)  '初始化对象
                With Me
                    .controlSub = controlSub
                    .strText = strText
                End With
            End Sub

    2、用结构体定义一个Term类型数组

     '定义一个Term类型的结构体数组
        Public arrayControl() As Term

    3、判断文本框是否为空的函数

      ''' <summary>
        ''' 判断文本框是否为空,进而给出相应提示
        ''' </summary>
        ''' <param name="ArrayControl"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function CIsEmpty(ByVal ArrayControl() As Term) As Boolean
            Dim termControl As Term   '定义一个term类型变量
            '遍历结构体数组中的所有元素,如果控件文本为空,则进行相应提示
            For Each termControl In ArrayControl               '遍历结构体数组中的所有元素
                If TypeOf termControl.controlSub Is TextBox Then  '判断控件是否为文本框
                    If termControl.controlSub.Text.Trim = "" Then     '判断文本框内容是否为空
                        MessageBox.Show(termControl.strText & "不能为空!", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                        termControl.controlSub.Focus()     '获得焦点
                        Return True
                        Exit Function
                    End If
    4、当然函数是写出来了,但是还得对定义的结构体进行初始化处理。我们需要在Registe的U层定义一个过程Rdim(),来完成此功能

      Private Sub Rdim()
            ReDim Preserve arrayControl(9)  '重新声明数组维数
    
            '初始化数组
            arrayControl(0) = New Term(txtCard, "卡号")
            arrayControl(2) = New Term(txtstudentNo, "学号")
            arrayControl(3) = New Term(txtstudentName, "姓名")
            arrayControl(4) = New Term(ComboSex, "性别")
            arrayControl(5) = New Term(txtgrade, "年级")
            arrayControl(6) = New Term(txtclass, "班级")
            arrayControl(7) = New Term(txtCash, "金额")
            arrayControl(8) = New Term(txtstatus, "注释")
        End Sub
    5、准备工作做完了,剩下的就是简单的调用了!在Register窗体中直接调用CIsEmpty函数即可。
    Call Rdim()    '首先调用Rdim过程进行数组初始化
            '调用CIsEmoty()函数,检测是否输入文本框内容
            If CIsEmpty(arrayControl) Then
                Exit Sub
            End If
    这样当运行出现文本框为空的情况,系统则会自动提示,方便简洁!

    6、那么如何能够实现一键清除操作呢?方法同判断文本框为空一样,只需要编写一个清除的函数则可

      ''' <summary>
        ''' 清楚文本框的数据
        ''' </summary>
        ''' <param name="arraycontrol"></param>
        ''' <returns>返回Boolean值,true</returns>
        ''' <remarks></remarks>
        Public Function AllEmpty(ByVal arraycontrol() As Term) As Boolean
            Dim termControl As Term   '定义一个term类型变量
    
            For Each termControl In arraycontrol
    
                If TypeOf termControl.controlSub Is TextBox Then
                    termControl.controlSub.Text = ""     '判断控件类型,如果是文本框或组合框则内容清空
                End If
            Next
            Return True
        End Function
    7、然后调用:

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
            Call Rdim()    '首先调用Rdim过程进行数组初始化
            '调用AllEmoty()函数,删除文本框中内容
            If AllEmpty(arrayControl) Then
                Exit Sub
            End If
        End Sub
         上述虽然只是在注册窗体中描述,但是对于其他的文本框以及组合框都是使用的,只要在对应的窗体中对结构体进行初始化处理,然后直接调用则可。

    感受:

         机房收费依旧在一步一步的进行着,与以往不同的则是所谓的“感觉”已经成熟了,最起码当遇到问题的时候自己会想尽办法去寻找最简单实用的方法来满足其需求。

    展开全文
  • VB中实现窗体自动隐藏 (转) OICQ聊天时的窗体自动隐藏vb.net教程 c#教程功能,用vc 或CBC都可以很c#教程简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE...

    VB中实现窗体自动隐藏 (转)
    OICQ聊天时的窗体自动隐藏vb.net教程

    c#教程功能,用vc 或CBC都可以很c#教程简单地实现,前几天看到有一则用CBC实现的例子,便想用VB实现一下,可惜当窗体上放满控件时,FORM的MOUSEMOVE事件不能很好地触发,所以只好用以下python基础教程的笨办法,现把代码贴上,窗体上需放一TIMER控件,Interval属性为200。大伙如有好的意见,不妨贴出来,让我学习学习。

    Option Explicit
    
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTapi) As Long
    Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    
    Private Type RECT
      Left As Long
      Top As Long
      Right As Long
      Bottom As Long
    End Type
    Private Type POINTAPI
      X As Long
      Y As Long
    End Type
    
    Private Const HWND_TOPMOST = -1
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    Private Const HWND_TOP = 0
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_SHOWWINDOW = &H40
    
    
    Private Sub Form_Load()
    '窗体放在最前面
      SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End Sub
    
    Private Sub Timer1_Timer()
      Dim p As POINTAPI
      Dim f As RECT
      GetCursorPos p  '得到MOUSE位置
      GetWindowRect Me.hwnd, f  '得到窗体的位置
      If Me.windowstate <> 1 Then
      If p.X > f.Left And p.X < f.Right And p.Y > f.Top And p.Y < f.Bottom Then
      'MOUSE 在窗体上
      If Me.Top < 0 Then
      Me.Top = -10
      Me.Show
      ElseIf Me.Left < 0 Then
      Me.Left = -10
      Me.Show
      ElseIf Me.Left + Me.Width >= Screen.Width Then
      Me.Left = Screen.Width - Me.Width + 10
      Me.Show
      End If
     
      Else
      If f.Top <= 4 Then
      Me.Top = 40 - Me.Height
      ElseIf f.Left <= 4 Then
      Me.Left = 40 - Me.Width
      ElseIf Me.Left + Me.Width >= Screen.Width - 4 Then
      Me.Left = Screen.Width - 40
      End If
      End If
      End If
    
    End Sub
    

    来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10797429/viewspace-101579/,如需转载,请注明出处,否则将追究法律责任。

    转载于:http://blog.itpub.net/10797429/viewspace-101579/

    展开全文
  • 一个让窗体加上滚动条的 VB 源码 用到了子类化的技术 如果显示未找到库,可以到 http://download.csdn.net/source/778537 窗中加滚动条需要的库 请将文件拷贝到system32目录下,再打开运行输入 regsvr32 ...
  • 教你用VB自定义窗体的右键弹出菜单,在文本框中点击鼠标右键,你会发现弹出了右键菜单,选择“红色”即可改变背景色为红色,选择“兰色”即可改变背景色为兰色。注意,不是窗体的右键菜单,是在文本域中。还在等什么...
  • VB.Net文本框提示及一次性清空

    千次阅读 热门讨论 2016-03-26 21:28:18
    【前言】  第二次基础机房收费系统,在很多系统优化方面有了更多的认识,对于窗体中文本框内容是否为空的提示以及一次性清空其内容,这些在第一... 对于判断窗体中文本框是否为空以及一次性清空文本框内容这一问题,
  • vb-透明背景文本框

    2011-08-17 00:54:10
    文本框窗体的背景图片中透明,文本框窗体的背景图片中透明,
  • VB实现字体的单项选择,选择字体应用于Textbox文本框窗体上设置三个按钮,单击相应的按钮可将文本框中的字体样式修改为选择的字体,点击三个按钮后,分别对应执行下列按钮动作:  Private Sub Option1_Click()  ...
  • 试了很久,窗体上修改的数据不能更新到数据库,最后查看了 参考了高手的c++代码,链接:https://blog.csdn.net/ranlianjie/article/details/1672049 最关键是要加上: Dim myBind As BindingManagerBase= ...
  • VB textbox里面的数据导入到已有的Excel表格中的某一指定单元格怎么做?
  • VB窗体居中

    千次阅读 2008-12-21 06:05:00
    我们可以通过计算得到屏幕的中心位置,再让窗体的左上移动到相应的位置就可以了在主窗体的Form_load()中的最前面加入下列代码:Dim X As longDim Y As Long让窗体居中X = Screen.WidthY = Screen.HeightX = (X - Me....
  • VB VBA 文本框回车键换行

    千次阅读 2014-12-26 14:57:51
    1,设置文本框Multiline = true 2,设置文本框Wordwarp = true 2,设置文本框Enterkeybehavior= true 最好加个Scrollbars , vertical为垂直的 菊子曰:我在用着的博客编辑软件
  • vb6文本框获得焦点问题

    千次阅读 2012-11-13 16:00:06
    好久不用vb6了,今天写个简单的程序,想使文本框在画面初期显示时获得焦点, 以为写个Text1.SetFocus就可以了,调试了却发现报错。   上网查了一些资料后,原来如下: 1.在页面初期化事件Form_Load中写Text1....
  • VB演示如何加载窗体事件的例子,演示当窗体事件发生后就在窗体上输出内容,附代码下载:  Private Sub Form_Load()  Show  Print "输出字符串"  '窗体加载事件发生后就在窗体上输出内容  Text1.Text = ""  '...
  • 操作一软件,所有信息都显示在文本框里的。我可以用VB获取该软件的文本框窗口句柄。 但我想把文本框里的数据取出来入打开的记事本。应该怎样做。用VB
  • (1)窗 体 [窗体名.]Print 内容 (5)列表框 列表框名. Clear 2.清除方法 例:Text1.Text="学习Visual Basic" (3)标 签 标签名.Caption=内容 (4)图片框 图片框名.Print 内容 (5)列表框 列表框催眠大师...
  • vb 无边框窗体拖动

    千次阅读 2015-10-14 23:55:27
    vb 无边框窗体拖动
  • vb.net窗体继承(机房重构知识点总结)

    千次阅读 热门讨论 2014-06-08 21:57:55
    在子窗体中,对于文本框、按钮等控件的属性是改变不了的,怎么办呢?下面以Text为例,想要更改Text的Name属性,只要打开设计器,把friend改为protected或public即可。    7.重新编译一下,你会发现,原本...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,031
精华内容 2,012
关键字:

vb文本框窗体