精华内容
下载资源
问答
  • 要求当Option2未选中时Combo1是灰色的 Private Sub Option2_Click() If Option2.Value = True Then Combo1.Enabled = True Else Combo1.Enabled = False End If End Sub 好像是选择的事件不对,...
  • 一.optionbutton与checkbox 1.在同一个窗体内增添了多个单选框,系统默认每次只选中一个单选按钮,若是选择一个框架Frame,那么则是在这个框架之内,每次选中一个单选按钮。 2.判定option按钮是否被选中,需要判定...

    一.optionbutton与checkbox
    1.在同一个窗体内增添了多个单选框,系统默认每次只选中一个单选按钮,若是选择一个框架Frame,那么则是在这个框架之内,每次选中一个单选按钮。
    2.判定option按钮是否被选中,需要判定option(i).value的值,若为True,则选中,若为False,则未被选中,或者根据option.item(i)所得出的结果,同理,为True选中,为False则未选中。
    3.若是创建了option控件数组,那么控件数组的个数为option.count。
    4.列表框列表项目从0开始,而计数的个数从1开始进行计数。
    5.optionbox与checkbox同理

    二.combobox与listbox
    1.要知道combobox与listbox项目个数,为combobox.listcount来确定,而项目名单为combobox.LIST(I)来进行确定。
    2.listbox列表框的添加删除用一段程序表示
    Private Sub Form_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    Text1.Text = InputBox(“请输入要添加的项目”)
    List1.AddItem Text1.Text
    End If

    If Button = 2 Then
        Text1.Text = InputBox("请输入要删除的项目")
        For i = 0 To List1.ListCount
            If List1.List(i) = Text1.Text Then
                List1.RemoveItem i
            End If
        Next i
    End If
    

    End Sub

    程序中单击鼠标左键添加列表项目,单击鼠标右键删除列表项目

    展开全文
  • 1、单选控件(OptionButton)与复选控件(CheckBox)的Value.....值。1)Value属性是单选与复选控件最主要的属性,单选与复选控件的Value值有差别的。单选控件:选中时,Value值为True;未被选中,Value值为False。...

    1

    单选控件(

    OptionButton

    )与复选控件(

    CheckBox

    )的

    Value

    值。

    1

    )

    Value

    属性是单选与复选控件最主要的属性

    ,单选与复选控件的

    Value

    值有差别的。

    单选控件:

    选中时,

    Value

    值为

    True

    ;未被选中,

    Value

    值为

    False

    复选控件:

    选中时,

    Value

    值为

    1

    未被选中,

    Value

    值为

    0

    禁止对该按钮进行选择,

    Value

    值为

    2

    单选控件与复选控件的

    Value

    值是不同的,

    2

    )单选与复选控件的

    Click

    事件可以改变

    Value

    这两种控件最主要的事件是

    Click

    事件,

    Click

    事件发生,

    Value

    值变为

    True

    或者

    1

    控件也自动变为选中状态

    3

    )单选与复选控件的

    SetFocus

    方法不一定可以改变

    Value

    单选按钮

    SetFocus

    方法可以在代码中将

    Value

    属性设置为

    True

    (单选按钮的

    Visible

    Enabled

    属性值均为

    True

    )

    ;复选按钮

    SetFocus

    方法可则不可以,它仅仅可以得焦点,但不

    能改变选中状态。

    4

    )编写程序代码,需要判断

    Value

    是否改变,单选控件可以直接写代码,而复选控件需要

    用多分支条件语句来编写。

    例题:

    在“字号”选项处,下面用了两种方法。

    Private Sub OptSize_Click (Index As Integer)

    Select Case Index

    展开全文
  • VB InitCommonControls 主题化后,如何改变 ChockBox 与 OptionButton 字的颜色呢? 还有就是 InitCommonControls 主题化后 在 Frame 中放个 按钮 ,按钮就会有黑色圈,这个问题怎么解决呢??
  • 首先,需要指出的是toolbar的ButtonMenu不是标准的menu,所以用TrackPopupMenu之类的api函数无法达到我们的目的,事实上当用户点击dropdown button时,toolbar会发送TBN_DROPDOWN这条通知消息,所以我们只要用代码...

          首先,需要指出的是toolbar的ButtonMenu不是标准的menu,所以用TrackPopupMenu之类的api函数无法达到我们的目的,事实上当用户点击dropdown button时,toolbar会发送TBN_DROPDOWN这条通知消息,所以我们只要用代码模拟发送这条通知消息即可。代码如下:

    Option Explicit
    Private Type TBBUTTON
       iBitmap As Long
       idCommand As Long
       fsState As Byte
       fsStyle As Byte
       bReserved1 As Byte
       bReserved2 As Byte
       dwData As Long
       iString As Long
    End Type
    Private Type NMHDR
       hwndFrom As Long
       idfrom As Long
       code As Long
    End Type

    Private Type NMTOOLBAR
        hdr As NMHDR
        iItem As Long
        tbBtn As TBBUTTON
        cchText As Long
        lpszString As Long
    End Type
    Private Const TBN_FIRST = -700&
    Private Const TBN_DROPDOWN = (TBN_FIRST - 10)

    Private Const WM_USER = &H400
    Private Const TB_GETBUTTON As Long = (WM_USER + 23)
    Private Const WM_NOTIFY As Long = &H4E&
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
        If Button.Index = 4 Then '假如toolbar上的第4个按钮有buttonmenu,同时其样式为5
           showbuttonmenu Toolbar1, Button.Index - 1
        End If
    End Sub
    Private Sub showbuttonmenu(Toolbar1 As MSComctlLib.Toolbar, ByVal Buttonindex As Long) 'buttonindex从0开始
        Dim tButton As TBBUTTON
        Dim tNotify As NMTOOLBAR
        Dim lResult As Long
        Dim mhwnd As Long
        Dim lCommandId As Long
        mhwnd = FindWindowEx(Toolbar1.hwnd, 0, "msvb_lib_toolbar", vbNullString)
        lResult = SendMessage(mhwnd, TB_GETBUTTON, Buttonindex, tButton)
        lCommandId = tButton.idCommand
        With tNotify
            .hdr.code = TBN_DROPDOWN
            .hdr.hwndFrom = mhwnd
            .iItem = lCommandId
        End With
        lResult = SendMessage(Toolbar1.hwnd, WM_NOTIFY, 0, tNotify)
    End Sub


     

    转载于:https://www.cnblogs.com/rainstormmaster/archive/2006/03/24/357795.html

    展开全文
  • 取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Dim pColor As Long Dim R As Long, G...
  • VBEditor

    2005-08-22 14:34:34
    VBEditor 一个反编译VB程序的应用程序,目前已可以解析下列控件的大部分属性,并进行编辑,其中包括字体的修改,背景颜色的修改,图片...OptionButton Form Menu MDIForm Image Data UserControl PropertyPage
  • vb按钮控件

    2012-09-06 20:52:25
    完全原创vb源码轻量级用户控件,按钮控件可直接加载到开发工程,按键中的图片位置可选择为上 左 右,增加了Selected属性,作为图片形式 CheckBox 或 OptionButton
  • VB多个控件综合应用完整实例 能过运行 COMBOBIX 控件 checkbox 控件 frame控件 OptionButton控件 textbox控件
  • 作者:伟子平时我们在过马路的时候常常会看到指挥交通的红绿灯,它的权利可大了,要是我们...在“红绿灯”程序中,我们需要用到的控件有:OptionButton(选项按钮)、Image(图像框)及Timer(时钟)控件。引入两个OptionB...

    作者:伟子

    平时我们在过马路的时候常常会看到指挥交通的红绿灯,它的权利可大了,要是我们可以控制它就好了,虽然在现实生活中办不到,就让我们编写一个虚拟的红绿灯程序,也来过过控制红绿灯的瘾。

    下面我们就开始编写吧。

    第一件事当然是新建一个工程,然后引入所需控件。在“红绿灯”程序中,我们需要用到的控件有:OptionButton(选项按钮)、Image(图像框)及Timer(时钟)控件。引入两个OptionButton,其中Option1的Caption设置为“红灯”,Option2的Caption设置为“绿灯”;Image1的Picture属性设置为红灯图片,选择一张红灯图片(读者可以自己创建一个红灯及绿灯图片)。设计好的程序界面如图1。

    好了,现在我们开始添加程序代码。

    我们要求程序能够通过我们所选择的是红灯或绿灯来显示相应的图像,实现的原理就是当我们单击“红灯”时显示红灯图片,单击“绿灯”时显示绿灯图片,只要用户准备好这两张图片后,要实现这个功能就非常的容易了。其具体的程序代码如下:

    双击Option1(即红灯)控件,添加如下代码:(黑体部分为系统自动生成的代码,下同)

    Private Sub Option1_Click()

    ′显示红灯图片

    On Error GoTo LoadErr ′当载入图片发生错误时跳到LoadErr处

    If Option1.Value=True Then ′当单击了Option1控件时

    Image1.Picture=LoadPicture(″C:\Windows\Desktop\red.jpg″) ′载入red.jpg图片,并显示在Image1控件中。

    End If

    LoadErr: ′设置捕获错误标签

    If Err.Number=53 Then ′当发生错误时

    MsgBox Err.Description,vbOKOnly+vbCritical,″错误″ ′显示错误信息

    End If

    End Sub

    上面一段代码中有一句“On Error Goto LoadErr”,该句是用作捕获程序错误的,当程序执行过程中发生了错误则跳到处理错误语句处执行。在这段代码中,如果在载入图片时发生了错误(通常是所要载入的文件不存在或路径错误)则跳到LoadErr处执行LoadErr后的程序代码。

    在VB中,所有的程序错误都是用数字表示的,如53则表示未找到文件的错误码,其实要知道哪个错误码表示哪种错误也并不难,当你在VB中运行这个程序时,如果出现了错误,会有一个错误的提示框,在该提示框中则有该错误的错误码。如果我们没有在该段程序中加入“On Error Goto LoadErr”语句及给出错误的文件名或文件路径的话,则会出现如图2所示的提示框。

    LoadPicture是载入图片的函数,其中第一个参数则是所要载入图片的完整路径,当然在本例中这个路径是固定了的,所要想使其路径随程序路径的变化而变化则需要使用App.Path值,可以写成Image1.Picture=LoadPicture(App.Path&″\red.jpg″),其中App.Path返回的值则是程序所在的路径,当然red.jpg必须放在程序所在的同一目录中。

    双击Option2(即绿灯)控件,添加如下代码:

    Private Sub Option2_Click()

    ′显示绿灯图片

    On Error GoTo LoadErr ′当载入图片发生错误时跳到LoadErr处

    If Option2.Value=True Then ′当单击了Option2控件时

    Image1.Picture=LoadPicture(″C:\Windows\Desktop\green.jpg″) ′载入green.jpg图片,并显示在Image1控件中。

    End If

    LoadErr: ′设置标签

    If Err.Number=53 Then ′当发生错误时

    MsgBox Err.Description,vbOKOnly+vbCritical,″错误″ ′显示错误信息

    End If

    End Sub

    OK!现在我们就可以单击F5键运行一下,看看我们自制的“红绿灯”程序吧。点击一下“绿灯”看看,红灯变成绿灯了吧?再试试红灯,怎样?现在我们就可以控制红绿灯了吧。

    如何才能让“红绿灯”自动更换呢?要实现这个功能也非常简单,只要加入Timer(时钟)控件,将Timer1的Interval设置为3000(即3秒)。其原理就是每隔3秒更换一种图片,这样便实现了自动更换。

    双击Timer1控件,添加如下代码:

    Private Sub Timer1_Timer()

    ′实现自动化

    If Option1.Value=True Then ′如果当前显示的是红灯

    Option2.Value=True ′使Option2被选中,执行Option2中的代码(即显示绿灯)

    Else

    Option1.Value=True ′使Option1被选中,执行Option1中的代码(即显示红灯)

    End If

    End Sub

    单击F5键运行一下,每隔3秒钟即换一种颜色显示。就这么几句代码就实现了自动化,简单吧?

    展开全文
  • VB动态添加 控件

    2011-11-05 17:30:00
    将Set chk(i) = Controls.Add( "VB.OptionButton ", "chk_ " & i, Form1) chk(0).Move 0, 0
  • 《 {用VB编写“红绿灯”程序} 》{ 平时我们在过马路的时候常常会看到指挥交通的红绿灯,它的权利可大了,要是我们...在“红绿灯”程序中,我们需要用到的控件有:OptionButton(选项按钮)、Image(图像框)及Timer(时...
  • VB控件属性大全

    万次阅读 多人点赞 2018-06-14 08:54:57
    1.01、窗体(FORM)的常用属性... 21.02、标签控件(Lable)的常用属性... 71.03、文本框控件(TextBox)的常用属性... 91.04、框架控件(Frame)的常用属性...... 171.07、单选钮控件(OptionButton)的常用...
  •  本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪...
  • Graph VB 参考

    2006-03-28 13:41:19
    CheckBox Forms.CheckBox ComboBox Forms.ComboBox CommandButton Forms.CommandButton Frame Forms.Frame Image Forms.Image Label Forms.Label ListBox Forms.ListBox MultiPage Forms.MultiPage OptionButton ...
  • VB动态添加控件

    2013-01-07 17:54:58
    动态添加控件的方法除了通过数组的方法来实现 还有一种方法:假设两个按钮...Option Explicit Private WithEvents newbutton As CommandButton ' 添加控件 Private Sub Command1_Click() If newbutton Is No
  • How can i have Vote button ?

    2020-12-04 15:38:54
    <div><p>I would like to send email with Vote button. would it be possible with Python and exchangelib? <p>because it is doable in C# & VB.net. https://docs.aspose.com/display/emailnet/Sending+...
  • VB 关闭其它窗口

    2008-10-23 17:14:00
    Option ExplicitPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim f1 As FormSelect Case Button.IndexCase 1 Set f1 = New Form1 Form1.Show unloadothe
  • 1.01、窗体(FORM)的常用属性 2 1.02、标签控件(Lable)的常用属性 7 1.03、文本框控件(TextBox)的常用属性 9 1.04、框架控件(Frame)的常用属性 13 ...1.07、单选钮控件(OptionButton)的常用属性 19
  • 关于VB6弹出菜单的问题

    千次阅读 2015-11-01 05:06:33
    写一个小程序, 用VB6随意做下界面,离奇的发现弹出菜单居然没有效果,过程如下 创建一个窗体Form1,用菜单编辑器创建一个弹出菜单 弹出菜单子菜单项在这里名称为mPopup1,事件代码为: Option Explicit Private ...
  • VB自动填表问题 bs自动填表的实现

    千次阅读 2013-07-24 09:39:04
    VB自动填表问题 自动填写下面的表单标题栏:内容栏:提交按钮:<button type="submit" id="postsubmit" value="true" name="topicsubmit" tabindex="1">提交 答: 引用Microsoft HTML Object Library 代码: ...
  • Whats new in this version:- New unpacker engine- OptionButton decompilation- Russian help file rewriten- New plugin functions: GetFrxIconCount, GetFrxIconOffset, GetFrxIconSize- ...
  • VB控件属性大全【珍藏版】

    热门讨论 2012-04-21 11:28:45
    1.07、单选钮控件(OptionButton)的常用属性 19 1.08、组合框控件(ComboBox)常用属性 22 1.09、列表框控件(ListBox)的常用属性 25 1.10、水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)的常用属性 28 1.11...
  • Command1 - Button,Caption="开战" Command2 - Button,Caption="退出" 'White By RichTextBox (张力-广西百色市) Option Explicit Option Base 1 Dim cx As Long, cy As Long Dim ch(3, 3) As Integer Dim ...
  • 一个应用程序少不了数据输入的功能,今天教大家使用控件设计一个数据输入窗口,需要使用到6个控件:Label 文字标签TextBox 文本框OptionButton 单选按钮ComboBox 下拉列表CheckBox 复选框CommandBount 按钮一、给...
  • 简单代码片段,记录一下备用. Option Explicit Dim mX As Long, mY As...Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And vbLeftButton Then m...
  • VB】点击控件,窗体不获得焦点

    千次阅读 2016-02-11 14:56:11
    首先创建一个Button空间。 然后复制以下代码 Option Explicit Rem 转移输入焦点的声明 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal ...
  • array.zip A simple program that shows how a two-dimensional array works within a VB program.<END><br>70,Bubblesort.zip A simple Bubble Sort code that shows how the program works within a VB ...

空空如也

空空如也

1 2 3 4 5
收藏数 84
精华内容 33
热门标签
关键字:

optionbuttonvb