精华内容
下载资源
问答
  • vb6xp-style.zip

    2020-05-04 16:28:42
    amicSetup1.1.8 在vb6工程属性会多出一个扩展,勾选能自动使输出exe具有xp以上操作系统风格,HA-eXeScope650-moming 这个是独立程序,打开任意exe,点击xp按钮,就把这个exe变为xp以上操作系统风格。当然这2个东东...
  • Microsoft Office的ContextMenuStrip控件,例如使用VB.NET的Visual Style
  • Microsoft Office的ContextMenuStrip控件,例如使用VB.NET的Visual Style
  • VB增强版ListView ComBox下拉列表控件,属性说明:  1.LVHead:列标题字符串,各列标题间用半角逗号“,”隔开  2.LVWidth:列宽度,也用“,”隔开,数目应与LVHead相同,值的大小取要显示的字符数  3.Style:下列...
  • VB6 with New Style

    2009-08-29 08:25:37
    VB6 with New Style VB6 with New Style VB6 with New Style VB6 with New Style
  • VB程序,如果你用如下语句动态创建一个Combo控件 Dim WithEvents cmbDropList As ComboBox ... Set cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList") 后,Combo控件的Style值是1 (VbComboDropDown ...

    在VB程序中,如果你用如下语句动态创建一个Combo控件
      Dim WithEvents cmbDropList As ComboBox

      ...
      Set cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList")

      后,Combo控件的Style值是1 (VbComboDropDown 下拉式组合框,包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入
    ),若想把Style的值更改2 (VbComboDrop-DownList 2 下拉式列表。这种样式仅允许从下拉式列表中选择 )

      通过语句Combo1.Style=2是不行的,因为Style是只读属性。为了突破这个限制,我动用的Spy++这个武器,对两种不同Style值的combo控件进行侦察,发现了两处不同

      1、combo控件的style的值为1-VbComboDropDown时,combo控件窗口的Styles=&H54010242,而combo控件的style的值为2-VbComboDrop-DownList时,combo控件窗口的Styles=&H54010243

      2、combo控件的style的值为1-VbComboDropDown时,combo控件里有一个Edit文本框窗口,而combo控件的style的值为2-VbComboDrop-DownList时,则没有Edit文本框窗口

      我首先试着用API函数改变combo控件窗口的Styles值,
      Call SetWindowLong(Combo1.hwnd,
    GWL_STYLE,&H54010243)
      看Combo控件有没有什么改变,结果大失所望,

      我再次试着用API函数杀死Combo控件里的那个Edit窗口,耶~~~,成功了
      下面是我的实现代码:
      Private
    Const GWL_STYLE = (-16)
      Private Const GW_CHILD = 5
      Private Declare
    Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

      Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
      Private Declare
    Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,
    ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
      Private Declare
    Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As
    Long
      Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As
    Long) As Long
      Private Declare Function CreateWindowEx Lib "user32" Alias
    "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal
    lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long,
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal
    hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
      Const
    SW_HIDE = 0
      Const SW_SHOW = 5
      Dim WithEvents cmbDropList As ComboBox

      Private Sub cmbDropList_Click()
      MsgBox cmbDropList.Text
      End
    Sub
      Private Sub Command1_Click()
      Dim ChildHwnd As Long
      Set
    cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList")

      cmbDropList.Visible = True
      cmbDropList.AddItem "One"

      cmbDropList.AddItem "Two"
      ChildHwnd = GetWindow(cmbDropList.hwnd,
    GW_CHILD) '取edit句柄
      Call DestroyWindow(ChildHwnd) 'Kill edit窗口

      '改变cmbDropList的Style,这一语句可有可无~~~~,
      Call
    SetWindowLong(cmbDropList.hwnd, GWL_STYLE, GetWindowLong(cmbDropList.hwnd,
    GWL_STYLE) + 1)
      End Sub

    转载于:https://www.cnblogs.com/Spacecup/p/3564845.html

    展开全文
  • 一个ActiveX组件(由Visual Basic开发),可以使用子类化方法将任何组件/控件从VB转换为XP-Style,而无需对源代码进行任何修改(当前,XP-Menu已完成)。
  • VB form 控制窗口BorderStyle 属性

    千次阅读 2013-05-15 10:17:39
    BorderStyle 属性 vbBSNone 0 无(没有边框或与边框相关的元素)。  vbFixedSingle 1 固定单边框。可以包含控制菜单框,标题栏,“最大化”按钮,和“最小化”按钮。只有使用最大化和最小化按钮才能改变...
    BorderStyle 属性
    

    vbBSNone            0   无(没有边框或与边框相关的元素)。 
    vbFixedSingle       1   固定单边框。可以包含控制菜单框,标题栏,“最大化”按钮,和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。 
    vbSizable           2  (缺省值)可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。 
    vbFixedDouble       3   固定对话框。可以包含控制菜单框和标题栏,不能包含最大化和最小化按钮,不能改变尺寸。 
    vbFixedToolWindow   4   固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。  
    vbSizableToolWindow 5   可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。
    展开全文
  • Private Const GWL_STYLE = (-16) Private Const GW_CHILD = 5   Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long ...
    Private  Const  GWL_STYLE = (-16)
    Private  Const  GW_CHILD = 5
     
    Private  Declare  Function  GetWindow  Lib  "user32"  ( ByVal  hwnd  As  Long ByVal  wCmd  As  Long As  Long
    Private  Declare  Function  GetWindowLong  Lib  "user32"  Alias  "GetWindowLongA"  ( ByVal  hwnd  As  Long ByVal  nIndex  As  Long As  Long
    Private  Declare  Function  SetWindowLong  Lib  "user32"  Alias  "SetWindowLongA"  ( ByVal  hwnd  As  Long ByVal  nIndex  As  Long ByVal  dwNewLong  As  Long As  Long
    Private  Declare  Function  ShowWindow  Lib  "user32"  ( ByVal  hwnd  As  Long ByVal  nCmdShow  As  Long As  Long
    Private  Declare  Function  DestroyWindow  Lib  "user32"  ( ByVal  hwnd  As  Long As  Long
    Private  Declare  Function  CreateWindowEx  Lib  "user32"  Alias  "CreateWindowExA"  ( ByVal  dwExStyle  As  Long ByVal  lpClassName  As  String ByVal  lpWindowName  As  String ByVal  dwStyle  As  Long ByVal  As  Long ByVal  As  Long ByVal  nWidth  As  Long ByVal  nHeight  As  Long ByVal  hWndParent  As  Long ByVal  hMenu  As  Long ByVal  hInstance  As  Long , lpParam  As  Any)  As  Long
     
    Const  SW_HIDE = 0
    Const  SW_SHOW = 5
     
    '将  ComboBox 的 Style 改为 2 - DropdownList
    Private  Sub  Command1_Click()
         Dim  ChildHwnd  As  Long
       
         Combo1.AddItem  "One"
         Combo1.AddItem  "Two"
         
         ChildHwnd = GetWindow(Combo1.hwnd, GW_CHILD)           '取edit句柄
         Call  DestroyWindow(ChildHwnd)                          'Kill edit窗口
       
         '改变cmbDropList的Style,这一语句可有可无~~~~,
         'Call SetWindowLong(Combo1.hwnd, GWL_STYLE, GetWindowLong(Combo1.hwnd, GWL_STYLE) + 1)
       
    End  Sub

    ---------------------------------------------------------------------------------

    Form Code,
    1. ' Add 3 command buttons in the form and paste this code.
    2. Option Explicit
    3.  
    4. Private Sub Command1_Click ( )
    5.     Dim ctl As ComboBox
    6.     '
    7.     Set ctl = AddSimpleCombo ( Me, "Cbo1" )
    8.  
    9.     '
    10.     If Not ctl Is Nothing Then
    11.         ctl. AddItem "AAAA"
    12.         ctl. AddItem "BBBB"
    13.         ctl. AddItem "CCCC"
    14.         ctl. Left = Command1. Left + Command1. Width + 200
    15.         ctl. Top = Command1. Top
    16.         ctl. Visible = True
    17.     End If
    18.  
    19.     '
    20. End Sub
    21.  
    22. Private Sub Command2_Click ( )
    23.     Dim ctl As ComboBox
    24.     '
    25.     Set ctl = AddDropDownCombo ( Me, "Cbo2" )
    26.  
    27.     '
    28.     If Not ctl Is Nothing Then
    29.         ctl. AddItem "DDDD"
    30.         ctl. AddItem "EEEE"
    31.         ctl. AddItem "FFFF"
    32.         ctl. Left = Command2. Left + Command2. Width + 200
    33.         ctl. Top = Command2. Top
    34.         ctl. Visible = True
    35.     End If
    36.  
    37.     '
    38. End Sub
    39.  
    40. Private Sub Command3_Click ( )
    41.     Dim ctl As ComboBox
    42.     '
    43.     Set ctl = AddDropDownList ( Me, "Cbo3" )
    44.  
    45.     '
    46.     If Not ctl Is Nothing Then
    47.         ctl. AddItem "GGGG"
    48.         ctl. AddItem "HHHH"
    49.         ctl. AddItem "IIII"
    50.         ctl. Left = Command3. Left + Command3. Width + 200
    51.         ctl. Top = Command3. Top
    52.         ctl. Visible = True
    53.     End If
    54.  
    55.     '
    56. End Sub
    57.  
    58. Private Sub Form_Load ( )
    59.     Command1. Left = 300
    60.     Command1. Caption = "Add Simple Combo"
    61.     '
    62.     Command2. Left = 300
    63.     Command2. Caption = "Add DropDown Combo"
    64.     '
    65.     Command3. Left = 300
    66.     Command3. Caption = "Add DropDown List"
    67. End Sub

    Module Code,
    1. Option Explicit
    2. '
    3. Private Const CBS_SIMPLE As Long = &H1&
    4. Private Const CBS_DROPDOWN As Long = &H2&
    5. Private Const CBS_DROPDOWNLIST As Long = &H3&
    6. '
    7. Private Declare Function SetWindowsHookEx _
    8.                 Lib "user32" _
    9.                 Alias "SetWindowsHookExA" (ByVal idHook As Long, _
    10.                                            ByVal lpFn As Long, _
    11.                                            ByVal hMod As Long, _
    12.                                            ByVal dwThreadId As Long ) As Long
    13. Private Declare Function UnhookWindowsHookEx _
    14.                 Lib "user32" (ByVal hHook As Long ) As Long
    15. Private Declare Function CallNextHookEx _
    16.                 Lib "user32" (ByVal hHook As Long, _
    17.                               ByVal nCode As Long, _
    18.                               ByVal wParam As Long, _
    19.                               lParam As Any ) As Long
    20. '
    21. Private Const WH_CBT = 5&
    22. Private Const HC_ACTION = 0&
    23. Private Const HCBT_CREATEWND = 3&
    24. '
    25. Private Const GWL_STYLE = ( -16 )
    26. Private Const GWL_EXSTYLE = ( -20 )
    27. '
    28. Private Declare Function GetWindowLong _
    29.                 Lib "user32" _
    30.                 Alias "GetWindowLongA" (ByVal hwnd As Long, _
    31.                                         ByVal nIndex As Long ) As Long
    32. Private Declare Function SetWindowLong _
    33.                 Lib "user32" _
    34.                 Alias "SetWindowLongA" (ByVal hwnd As Long, _
    35.                                         ByVal nIndex As Long, _
    36.                                         ByVal dwNewLong As Long ) As Long
    37. Private Declare Function GetClassName _
    38.                 Lib "user32" _
    39.                 Alias "GetClassNameA" (ByVal hwnd As Long, _
    40.                                        ByVal lpClassName As String, _
    41.                                        ByVal nMaxCount As Long ) As Long
    42. 'hook arg vars...
    43. Dim m_hHook As Long
    44. Dim m_ClassName As String
    45. Dim m_StylesAdd As Long, m_StylesRemove As Long
    46. Dim m_ExStylesAdd As Long, m_ExStylesRemove As Long
    47. Dim m_CallNext As Boolean
    48. Dim m_UseExactClassname As Boolean
    49.  
    50. Public Function AddSimpleCombo (ContainerForm As Form, _
    51.                                strComboName As String ) As ComboBox
    52.  
    53.     If NoControlWithSameName (ContainerForm, strComboName ) Then
    54.         CbtHookStyle "ThunderComboBox", True, CBS_SIMPLE, CBS_DROPDOWN Or CBS_DROPDOWNLIST, 0, 0, True
    55.         Set AddSimpleCombo = ContainerForm. Controls. Add ( "VB.ComboBox", strComboName )
    56.         CbtUnhookStyle
    57.     End If
    58.  
    59. End Function
    60.  
    61. Public Function AddDropDownCombo (ContainerForm As Form, _
    62.                                  strComboName As String ) As ComboBox
    63.  
    64.     If NoControlWithSameName (ContainerForm, strComboName ) Then
    65.         CbtHookStyle "ThunderComboBox", True, CBS_DROPDOWN, 0, 0, 0, True
    66.         Set AddDropDownCombo = ContainerForm. Controls. Add ( "VB.ComboBox", strComboName )
    67.         CbtUnhookStyle
    68.     End If
    69.  
    70. End Function
    71.  
    72. Public Function AddDropDownList (ContainerForm As Form, _
    73.                                 strComboName As String ) As ComboBox
    74.  
    75.     If NoControlWithSameName (ContainerForm, strComboName ) Then
    76.         CbtHookStyle "ThunderComboBox", True, CBS_DROPDOWNLIST, 0, 0, 0, True
    77.         Set AddDropDownList = ContainerForm. Controls. Add ( "VB.ComboBox", strComboName )
    78.         CbtUnhookStyle
    79.     End If
    80.  
    81. End Function
    82.  
    83. Private Sub CbtHookStyle (sClassname As String, _
    84.                          Optional ByVal UseExactClassname As Boolean = False, _
    85.                          Optional ByVal StylesAdd As Long = 0&, _
    86.                          Optional ByVal StylesRemove As Long = 0&, _
    87.                          Optional ByVal ExStylesAdd As Long = 0&, _
    88.                          Optional ByVal ExStylesRemove As Long = 0&, _
    89.                          Optional ByVal CallNextHook As Boolean = False )
    90.     'Sets hook - call just prior to adding control
    91.     CbtUnhookStyle 'allow only 1 active at any time
    92.     m_ClassName = sClassname
    93.     m_StylesAdd = StylesAdd
    94.     m_StylesRemove = StylesRemove
    95.     m_ExStylesAdd = ExStylesAdd
    96.     m_ExStylesRemove = ExStylesRemove
    97.     m_CallNext = CallNextHook
    98.     m_UseExactClassname = UseExactClassname
    99.     m_hHook = SetWindowsHookEx (WH_CBT, AddressOf CbtHook, 0&, App. ThreadID )
    100. End Sub
    101.  
    102. Private Sub CbtUnhookStyle ( )
    103.  
    104.     'unhooks - call immediately after adding control
    105.     If m_hHook <> 0& Then
    106.         UnhookWindowsHookEx m_hHook
    107.         m_hHook = 0&
    108.     End If
    109.  
    110. End Sub
    111.  
    112. Private Function NoControlWithSameName (ContainerForm As Form, _
    113.                                        strComboName As String ) As Boolean
    114.     On Error GoTo ErrHndlr
    115.     Dim ctl As Control
    116.  
    117.     For Each ctl In ContainerForm. Controls
    118.  
    119.         If ctl. Name = strComboName Then
    120.             Exit Function
    121.         End If
    122.  
    123.     Next
    124.  
    125.     NoControlWithSameName = True
    126.     Exit Function
    127. ErrHndlr:
    128. End Function
    129.  
    130. Private Function CbtHook (ByVal nCode As Long, _
    131.                          ByVal hwnd As Long, _
    132.                          ByVal lpCBCT As Long ) As Long
    133.  
    134.     Select Case nCode
    135.  
    136.         Case Is < HC_ACTION
    137.             CbtHook = CallNextHookEx (m_hHook, nCode, hwnd, ByVal lpCBCT )
    138.             Exit Function '===============>>>
    139.  
    140.         Case HCBT_CREATEWND
    141.             OnCreate ByVal hwnd
    142.  
    143.         Case Else
    144.             'do nothing
    145.     End Select
    146.  
    147.     If m_CallNext Then
    148.         CbtHook = CallNextHookEx (m_hHook, nCode, hwnd, ByVal lpCBCT )
    149.     End If
    150.  
    151. End Function
    152.  
    153. Private Sub OnCreate (ByVal hwnd As Long )
    154.     Dim L As Long, lRet As Long
    155.     Dim sClass As String
    156.     Dim bHit As Boolean
    157.     sClass = String ( 256, 0 )
    158.     lRet = GetClassName (hwnd, sClass, 255& )
    159.  
    160.     If lRet > 0& Then
    161.         If m_UseExactClassname Then
    162.             '(non case-sens match)
    163.             sClass = Left$ (sClass, lRet )
    164.             bHit = ( StrComp (sClass, m_ClassName, vbTextCompare ) = 0 )
    165.         Else
    166.             '(fuzzy match)
    167.             bHit = ( InStr ( 1, sClass, m_ClassName, vbTextCompare ) > 0 )
    168.         End If
    169.  
    170.         If bHit Then
    171.  
    172.             'make style, exstyle changes...
    173.             If (m_StylesAdd Or m_StylesRemove ) <> 0& Then
    174.                 L = GetWindowLong (hwnd, GWL_STYLE )
    175.                 L = L Or m_StylesAdd
    176.                 L = L And ( Not m_StylesRemove )
    177.                 SetWindowLong hwnd, GWL_STYLE, L
    178.             End If
    179.  
    180.             If (m_ExStylesAdd Or m_ExStylesRemove ) <> 0& Then
    181.                 L = GetWindowLong (hwnd, GWL_EXSTYLE )
    182.                 L = L Or m_ExStylesAdd
    183.                 L = L And ( Not m_ExStylesRemove )
    184.                 SetWindowLong hwnd, GWL_EXSTYLE, L
    185.             End If
    186.         End If 'is class
    187.     End If
    188.  
    189. End Sub

    http://www.vbforums.com/showthread.php?525442-changing-the-Style-of-Combo-in-runtime
    展开全文
  • vb6获取一幅在PICTURE打开的图像使用DIB方法进行放大、缩小。 代码示范了VB6如何调用函数对图像进行获取,放大,输出,还有完整的API定义和数据结构定义. sub command1_click() With picture1  .ScaleMode=3  ....
  • vb字体设置

    2012-12-31 18:46:18
    TextBox1.Font = New Font("宋体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ...
  • vb中的msgbox的用法

    千次阅读 2018-11-01 17:49:07
     在消息框显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。2、语法  MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])  参数说明: (1)...

    1、作用

       在消息框中显示信息,并等待用户单击按钮,可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。
    2、语法
           MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])

           参数说明:

    (1)Prompt,必需的参数,为字符串,作为显示在消息框中的消息文本。其最大长度约为1024个字符,由所用字符的宽度决定。如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。

    (2)Buttons,可选的参数,为数值表达式的值之和,指定显示的按钮的数目及形式、使用的图标样式、缺省按钮及消息框的强制回应等,可以此定制消息框。若省略该参数,则其缺省值为0。设置值见下表。

    (3)Title,可选的参数,表示在消息框的标题栏中所显示的文本。若省略该参数,则将应用程序名放在标题栏中。

    (4)Helpfile,可选的参数,为字符串表达式,提供帮助文件。若有Helpfile,则必须有Context。

    (5)Context,可选的参数,为数值表达式,提供帮助主题。若有Context,则必须有Helpfile。

    3、Button参数
           用于MsgBox函数中Button参数的常量

    符号常量     值     作用
    按钮类型     vbokonly     0     只显示“确定”按钮
    vbokcancel     1     显示“确定”及“取消”按钮
    vbabortretryignore     2     显示“终止”、“重试”及“忽略”按钮
    vbyesnocancel     3     显示“是”、“否”及“取消”按钮
    vbyesno     4     显示“是”、“否”按钮
    vbretrycancel     5     显示“重试”及“取消”按钮

    图标样式     vbcritical     16     显示critical message图标(系统叉号图标)
    vbquestion     32     显示warning query图标(系统问号图标)
    vbexclamation     48     显示warning message图标(系统感叹号图标)
    vbinformation     64     显示information message图标(系统信息图标)
                  
    默认按钮     vbdefauitbutton1     0     第一个按钮是默认值
    vbdefauitbutton2     256     第二个按钮是默认值
    vbdefauitbutton3     512     第三个按钮是默认值
    vbdefauitbutton4     768     第四个按钮是默认值
                  
    强制返回     vbapplicationmode1     0     应用程序强制返回
    vbsystemmode1     4096     系统强制返回
                  
    其他类型     vbmsgboxhelpbutton     16384     在对话框中添加一个“帮助”按钮
    vbmsgboxsetforeground     65535     指定对话框窗口作为前景窗口
    vbmsgboxright     524288     对话框的文本为右对齐
    vbmsgboxrtireading     1048576     指定对话框中的元素从右到左显示

    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是VBA指定的,可以在程序代码中使用这些常数名称代替实际数值。
    4、返回值
    用于MsgBox函数返回值的常量
    常数 值 说明
    vbOK 1 确定
    vbCancel 2 取消
    vbAbort 3 终止
    vbRetry 4 重试
    vbIgnore 5 忽略
    vbYes 6 是
    vbNo 7 否

    5、相关说明
    (1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)若在消息框中显示“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    6、示例
    (1)使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件,其中有一个帮助主题代码为1000。
        Dim Msg,Style,Title,Help,Ctxt,Response,MyString  
        '定义消息文本  
        Msg="Do you want to continue ?"  
        ' 定义按钮  
        Style = vbYesNo + vbCritical + vbDefaultButton2  
        ' 定义标题文本  
        Title = "MsgBox Demonstration"  
        ' 定义帮助文件   
        Help = "DEMO.HLP"  
        ' 定义帮助主题   
        Ctxt = 1000      
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)  
        If Response = vbYes Then    ' 用户按下“是”  
            MyString = "Yes"  
        Else    ' 用户按下“否”  
            MyString = "No"  
        End If  
    (2)只显示某消息
        MsgBox “Hello!”   
    (3)将消息框返回的结果赋值给变量

        Ans=MsgBox(“Continue?”,vbYesNo)  
        If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub  

    (4)使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮

        Config=vbYesNo+vbQuestion+vbDefaultButton2  

    (5)若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&加空格与字符隔开。如
     

        MsgBox “This is the first line.” & vbNewLine & “Second line.”  

    (6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值,用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符,因此限制了可显示的单元格数。

        Option Explicit  
        Sub ShowRangeValue()  
          Dim Msg As String  
          Dim r As Integer, c As Integer  
          Msg = ""  
          For r = 1 To 5  
            For c = 1 To 5  
              Msg = Msg & Cells(r, c) & vbTab  
            Next c  
            Msg = Msg & vbCrLf  
          Next r  
          MsgBox Msg  
        End Sub  

    (7)在消息框语句中运用工作表函数以及设置显示的数置格式,如下面语句所示:
     

        MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13) 

    展开全文
  • VB 禁止调整MDI窗体大小,窗体文件一共是2个,一个是主窗口文件,一个是MDI窗口文件,实现禁止改变窗口大小的功能,我们可以在MDIForm当窗体加载时,,执行以下代码:  Private Sub MDIForm_Load()  Style = ...
  • 四种进度条控件及VB的应用实例源码,压缩包里有4个不同动画形式的VB进度条控件源代码:1.格子式进度条,这也是Windows系统常见的一种风格;2.可以显示百分比的进度条,一般多用于程序安装或逻辑处理;3.动画式进度条...
  • VB Form的BorderStyle详细说明

    千次阅读 2007-02-28 22:36:00
    它的属性取值如下: ...窗体在 Windows 95 的任务条不显示。 5 Sizeable ToolWindow可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条不显示。 
  • vb实用案例50例

    2018-10-08 21:31:45
    BorderStyle :1—Fixed Single(有边框) Backstyle:0—Tansparent(背景透明) 2) 运行时,单击“字号”,将标签内容的字号设置为30;单击“加粗”,将标签内容加粗;单击“下划线”,则在标签内容下加下划线。
  • VB 的基本数据类型

    万次阅读 2017-06-11 10:12:31
    VB基本数据类型 VB 6.O提供的基本数据类型主要有:字符型数据、数值型数据、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型等9种数据类型。 1.字符型数据 字符型数据(String)用以定义...
  • vb6 标签居中控件

    2013-06-11 19:45:59
    vb6 标签居中控件及一些其他属性 1.txAlignment 显示位置 2.Padding 设置距离边框的大小,设置方式为『L,T,R,B』或『L T R B』,比如要设置离左边的大小为100,则『100,0,0,0』或『100 0 0 0』,如果全部为100,...
  • VB6属性的设置(3)

    2020-04-07 07:51:28
    设置VB对象属性的方法有两种: 1、在控件布局时,通过属性窗口来设置; 2、在程序代码窗口通过编程,运行程序过程设置属性的值。 一、在属性窗口设置属性 打开属性窗口的方法(四种): 1、选定窗体或窗体...
  • vb.net的资料太少,查阅RichTextBox调整字体大小的方法没找到,看了几篇C#的介绍,有的写的好复杂,在一篇短文找到解决方法: ‘缩小字号 Dim fonOld, fonNew As Font fonOld = rtbMain.Font Try fonNew = ...
  • vb中窗体的常用属性及其功能

    千次阅读 热门讨论 2017-06-11 10:12:49
    VB中窗体的常用属性及其功能属性名称 功能 属性值及功能 窗体名称 为窗体指定一个名字 Appearance 设置一个窗体运行时是否以3D效果显示 0-Flat:窗体以平面的形式显示1-3D:窗体以3D的形式显示(默认值) AutoRedraw...
  • Vb中VSFlexGrid控件的应用

    千次阅读 2015-03-10 18:15:48
    将数据库的内容写入下拉框 O.A(rs, FieldList, KeyField, BackColor)   CausesValidation 目标事件确认 O.A = False|True   Cell 选择部分的相应准则值 O.A(准则, Row1, Col1, Row2, Col2) = ...
  • VB.net 进度条使用

    2021-02-10 10:33:49
    ProgressBar 控件又称进度条控件,它是一个应用很广...在vb.net工具箱 ProgressBar 控件图标如下图一所示: ProgressBar 控件常用属性有:Maximum、Minimum、Step、Value;常用的方法有:PerformStep、Increment。 M
  • VB6.0实现平面工具栏,仿IE风格,图标下面显示文字,实现平面的工具栏(IE风格),调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, SendMessageByString...
  • vb控件属性大全.txt

    2012-02-23 12:59:37
    vb控件属性大全 1.01、窗体(FORM)的常用属性 属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance 外观效果,取值为: 0 平面 1 3D(立体) AutoRedraw ...
  • 详解VB中连接access数据库的几种方法

    千次阅读 2017-03-26 22:21:19
    VB中,连接ACCESS数据库的方法主要有下面三种    使用ADO对象,通过编写代码访问数据库  Connection 对象  ODBC数据源  使用ADO Data 控件快速创建数据库连接  有三种
  • VB版自动生成随机数,6个蓝一个红色 关键是在于代码 #Region "自动生成双色球" Private Sub Command1_Click() i = 1 Do While i 第一层循环,用于取8个数 cf = False '是否取到了重复的数 Randomize() ...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    在.NET这些组件或动态联接库不必在注册表注册,每个程序都可以使用自带的组件或动态联接库,只要把这些组件或动态联接库放到运行程序所在文件夹的子文件夹bin,运行程序就自动使用在bin文件夹的组件或动态...
  • VB中的SQL语言——增、删、改、查

    万次阅读 热门讨论 2014-08-19 21:11:44
    SQL语言是一种交互式查询语言,允许用户直接查询存储数据,但它不是完整的程序语言,如它没有DO或FOR类似的循环语句,因此它可以嵌入到另一种语言,也可以借用VBVB.NET、C、JAVA等 高级语言,

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 19,383
精华内容 7,753
热门标签
关键字:

vb中style