精华内容
下载资源
问答
  • 请问VB中Command Button、Label、Text、Form各有什么特有属性、方法、事件?
  • VB中command

    千次阅读 2010-01-19 13:50:00
    于是想到加一个参数给程序启动时,但不知道怎么实现,结果发现VB中command,是可以接受参数的。直接:AAA.EXE xxx,在程序中用一个变量得到这个参数,那就可以了。做法:1、在注册表自启动项中写入AAA.EXE xxx2、在...

    在开发IP-MAC扫描监视器时,设置了开机自动运行,但是当WINDOWS启动后,程序运行后却打开窗体了,不是最小化运行的。这怎么办呢?于是想到加一个参数给程序启动时,但不知道怎么实现,结果发现VB中有command,是可以接受参数的。直接:AAA.EXE xxx,

    在程序中用一个变量得到这个参数,那就可以了。做法:

    1、在注册表自启动项中写入AAA.EXE xxx

    2、在程序启动过程中

    dim s as string

    if s=xxx then 最小化运行

    如此简单就可以了。

    展开全文
  • Change the ForeColor of the text in a command button. Option ExplicitPrivate Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd Type Priv...
    Change the ForeColor of the text in a command button.
    Option Explicit

    Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    End Type

    Private Declare Function GetParent Lib "user32" _
    (ByVal hWnd 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 Const GWL_WNDPROC = (-4)

    Private Declare Function GetProp Lib "user32" Alias "GetPropA" _
    (ByVal hWnd As Long, ByVal lpString As String) As Long
    Private Declare Function SetProp Lib "user32" Alias "SetPropA" _
    (ByVal hWnd As Long, ByVal lpString As String, _
    ByVal hData As Long) As Long
    Private Declare Function RemoveProp Lib "user32" Alias _
    "RemovePropA" (ByVal hWnd As Long, _
    ByVal lpString As String) As Long

    Private Declare Function CallWindowProc Lib "user32" Alias _
    "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
    ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
    (Destination As Any, Source As Any, ByVal Length As Long)

    注释:Owner draw constants
    Private Const ODT_BUTTON = 4
    Private Const ODS_SELECTED = &H1
    注释:Window messages we注释:re using
    Private Const WM_DESTROY = &H2
    Private Const WM_DRAWITEM = &H2B

    Private Type DRAWITEMSTRUCT
    CtlType As Long
    CtlID As Long
    itemID As Long
    itemAction As Long
    itemState As Long
    hwndItem As Long
    hDC As Long
    rcItem As RECT
    itemData As Long
    End Type

    Private Declare Function GetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, _
    ByVal cch As Long) As Long
    注释:Various GDI painting-related functions
    Private Declare Function DrawText Lib "user32" Alias "DrawTextA" _
    (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, _
    lpRect As RECT, ByVal wFormat As Long) As Long
    Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, _
    ByVal crColor As Long) As Long
    Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, _
    ByVal nBkMode As Long) As Long
    Private Const TRANSPARENT = 1

    Private Const DT_CENTER = &H1
    Public Enum TextVAligns
    DT_VCENTER = &H4
    DT_BOTTOM = &H8
    End Enum
    Private Const DT_SINGLELINE = &H20

    Private Sub DrawButton(ByVal hWnd As Long, ByVal hDC As Long, _
    rct As RECT, ByVal nState As Long)

    Dim s As String
    Dim va As TextVAligns

    va = GetProp(hWnd, "VBTVAlign")

    注释:Prepare DC for drawing
    SetBkMode hDC, TRANSPARENT
    SetTextColor hDC, GetProp(hWnd, "VBTForeColor")

    注释:Prepare a text buffer
    s = String$(255, 0)
    注释:What should we print on the button?
    GetWindowText hWnd, s, 255
    注释:Trim off nulls
    s = Left$(s, InStr(s, Chr$(0)) - 1)

    If va = DT_BOTTOM Then
    注释:Adjust specially for VB注释:s CommandButton control
    rct.Bottom = rct.Bottom - 4
    End If

    If (nState And ODS_SELECTED) = ODS_SELECTED Then
    注释:Button is in down state - offset
    注释:the text
    rct.Left = rct.Left + 1
    rct.Right = rct.Right + 1
    rct.Bottom = rct.Bottom + 1
    rct.Top = rct.Top + 1
    End If

    DrawText hDC, s, Len(s), rct, DT_CENTER Or DT_SINGLELINE _
    Or va

    End Sub

    Public Function ExtButtonProc(ByVal hWnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    Dim lOldProc As Long
    Dim di As DRAWITEMSTRUCT

    lOldProc = GetProp(hWnd, "ExtBtnProc")

    ExtButtonProc = CallWindowProc(lOldProc, hWnd, wMsg, wParam, lParam)

    If wMsg = WM_DRAWITEM Then
    CopyMemory di, ByVal lParam, Len(di)
    If di.CtlType = ODT_BUTTON Then
    If GetProp(di.hwndItem, "VBTCustom") = 1 Then
    DrawButton di.hwndItem, di.hDC, di.rcItem, _
    di.itemState

    End If

    End If

    ElseIf wMsg = WM_DESTROY Then
    ExtButtonUnSubclass hWnd

    End If

    End Function

    Public Sub ExtButtonSubclass(hWndForm As Long)

    Dim l As Long

    l = GetProp(hWndForm, "ExtBtnProc")
    If l <> 0 Then
    注释:Already subclassed
    Exit Sub
    End If

    SetProp hWndForm, "ExtBtnProc", _
    GetWindowLong(hWndForm, GWL_WNDPROC)
    SetWindowLong hWndForm, GWL_WNDPROC, AddressOf ExtButtonProc

    End Sub

    Public Sub ExtButtonUnSubclass(hWndForm As Long)

    Dim l As Long

    l = GetProp(hWndForm, "ExtBtnProc")
    If l = 0 Then
    注释:Isn注释:t subclassed
    Exit Sub
    End If

    SetWindowLong hWndForm, GWL_WNDPROC, l
    RemoveProp hWndForm, "ExtBtnProc"

    End Sub

    Public Sub SetButtonForecolor(ByVal hWnd As Long, _
    ByVal lForeColor As Long, _
    Optional ByVal VAlign As TextVAligns = DT_VCENTER)

    Dim hWndParent As Long

    hWndParent = GetParent(hWnd)
    If GetProp(hWndParent, "ExtBtnProc") = 0 Then
    ExtButtonSubclass hWndParent
    End If

    SetProp hWnd, "VBTCustom", 1
    SetProp hWnd, "VBTForeColor", lForeColor
    SetProp hWnd, "VBTVAlign", VAlign

    End Sub

    Public Sub RemoveButton(ByVal hWnd As Long)

    RemoveProp hWnd, "VBTCustom"
    RemoveProp hWnd, "VBTForeColor"
    RemoveProp hWnd, "VBTVAlign"

    End Sub

    To use this, set the target command button注释:s Style property to 1 - Graphical

    EXAMPLES:

    To set command button forecolor(doesn注释:t have to be in form_load)

    Private Sub Form_Load()
    SetButtonForecolor Command1.Hwnd, vbBlue
    End Sub

    That will set Command1注释:s Forecolor to Blue

    To remove the color(can be put anywhere)

    Private Sub Command2_Click()
    RemoveButton Command1.Hwnd
    Command1.Refresh
    End Sub

    转载于:https://www.cnblogs.com/tanghuawei/archive/2007/01/12/618827.html

    展开全文
  • 本人所用的学习VB的书籍是2008年出版的,上面写到:“command”控件的“default”属性是用于激活回车键对按钮的控制,其默认值为false,也就是说在默认状态下(我们未对command控件的default属性进行指定的时候,该...

    本人所用的学习VB的书籍是2008年出版的,上面写到:“command”控件的“default”属性是用于激活回车键对按钮的控制,其默认值为false,也就是说在默认状态下(我们未对command控件的default属性进行指定的时候,该按钮是不能通过回车键来激活的。)

    于是笔者为了实验这个属性写下了如下简短的代码(在command1的default属性保持默认的情况下):




    当执行该段代码之后是这样的:


    本以为这样按钮只能通过鼠标点击来控制,可是当我按下回车键的时候却果断激活了按钮的click事件:


    笔者连续操作了几次,当事先把default属性调成true也是一样,好像default属性根本就不能控制command是否响应回车键一样。

    本人猜想,是不是vb的6.0版本已经对这个属性失效了。

    展开全文
  • 建立连接后,就可以使用Command对象在数据源(如SQL Servcr)执行命令并返回结果。使用Command构造函数或者调用Connection对象的CreateCommand方法,可以创建Command对象。在使用Command构造函数创建Command对象时,...

        建立连接后,就可以使用Command对象在数据源(如SQL Servcr)中执行命令并返回结果。使用Command构造函数或者调用Connection对象的CreateCommand方法,可以创建Command对象。在使用Command构造函数创建Command对象时,需要指定一个在数据源上执行的SQL语句和Connection对象。通过CommandText属性可以查询和修改Command对象的SQL语句。下面的代码
    段执行SELECT命令,并返回一个DataReader对象:

            Dim sqlStr As String = "Select * From authors"
            Dim connectionString As String = _
                "Data Source=.\SQLEXPRESS;" & _
                "AttachDbFilename='~\pubs.mdf'; " & _
                "Integrated Security=True;" & _
                "Connect Timeout=30;" & _
                "User Instance=True"
            Dim comm As SqlCommand = New SqlCommand(sqlStr, New SqlConnection(connectionString))
            comm.Connection.Open()
            Dim dataReader As SqlDataReader = comm.ExecuteReader(CommandBehavior.CloseConnection)

        Command对象的CommandText属性可以执行所有的SQL语句,包括标准的SELECT、UPDATE、INSERT和DELETE语句。例如,执行Command对象中的SQL语句,可以创建表、外键和主键等。
        Command对象提供了多个Execute方法以执行希望的操作。

    • 使用ExecuteReader  返回一个DataReader对象。返回的结果为一个数据流;
    • 使用ExecuteScalar  返回一个单值。
    • 使用ExecuteNonQuery  执行不需要返回行的命令,通常包括有输出参数和(或)返回值的存储过程。
    • 使用ExecuteXmIReader  返回一个XmIReader,用于读取从数据库返回的一段XML。

        在DataSet和DataAdapter配合使用时,通过DataAdapter对象的SelectCommand、InsertCommand、UpdateCommand和DeleteCommand属性,可以使用Command对象返回或者修改数据源的数据。

     

    展开全文
  • Public Sub GetParameters() Dim Para As String Para = Command$() gstrUserID = GetCommandPara(Para, 1) gstrDSN = G...
  • 调用sp_addumpdevice过程时,发生这SP有返回值,度娘了一圈,很少有提出存储过程返回值如何在ADO Command中如何引用。 瞎写的代码,总是提示:@cntrltype未声明为OUTPUT,但形参还需要输出,等等。 但打开sp_...
  • VB6.0,如何实现在程序运行时,即触发且运行按钮Command下的命令,Sub Form_Load()下有其它一些命令的。用CALL命令不行
  • 使用存储过程的原因:创建—个过程并把它存储在数据库,因为事先知道有这个过程,所以可以提前编译它,以便在应用程序使用。 在代码使用存储过程的另一个好处是一般比较安全。使用没有存储过程的SQL时,总是...
  • VB中Execute的用法

    千次阅读 2016-11-07 19:27:32
    VB中Execute是指ADO命令之一:Execute 方法。 Execute 方法,执行在 CommandText 属性中指定的查询、SQL 语句或存储过程。 语法 对于按行返回的 Command: Set recordset = command.Execute( ...
  • VB中求素数

    千次阅读 2020-04-20 18:01:51
    Private Sub Command1_Click() n = Val(Text2.Text) For i = 2 To n Dim flag As Boolean flag = True For j = 2 To i - 1 If i Mod j = 0 Then flag = False Exit For End If Next j If flag Then Text1.Text = Tex...
  • 实验名称:VB中数字的交换 启动电脑桌面上的VB软件。 在工具箱窗口找到command button的图标,单击图标并在窗体的适当位置创建,在属性窗口中找到caption并把其后面改为“交换”。 在窗体中双击“交换”,...
  • VB属性对应的中文AAction返回或设置被显示的对话框(CommandDialog)的类型,在设计时无效。ActiveControl活动控件ActiveForm活动窗体Alignment文本对齐类型Align指定图形在图片框的位置Archive文本列表框是否含有...
  • vb中两个数的比较

    2016-03-28 14:28:21
    在左侧工具箱找到command的图标,在窗体适当位置创建图标,并在窗体command图标修改为“排序”。 在左侧工具箱找到textbox的图标,在窗体恰当位置创建图标。 在窗体双击command图标,在弹出的...
  • 在左侧工具箱找到command的图标,在窗体适当位置创建图标,并在窗体command图标修改为“排序”。 在左侧工具箱找到textbox的图标,在窗体恰当位置创建图标。 在窗体双击command图标,在弹出的...
  • 在左侧工具箱找到command的图标,在窗体适当位置创建图标,并在窗体command图标修改为“排序”。 在左侧工具箱找到textbox的图标,在窗体恰当位置创建图标。 在窗体双击command图标,在弹出的对话框...
  • VB中Static的含义

    千次阅读 2018-12-27 20:56:03
    Private Sub Command1_Click() Dim A As Integer A= A + 1 Print A End Sub 静态变量: Private Sub Command2_Click() Static B As Integer B= B + 1 Print B End Sub 分别交互点击Command1和Command2...
  • 要在vb中获access窗体的属性及窗体中控件的属性。 代码如下: Private Sub Command1_Click() Dim accApp As Access.Application Set accApp = New Access.Application accApp.Visible = False accApp....
  • VB中读取EXCEL源码

    热门讨论 2010-08-07 12:53:52
    VB读取EXCEL源码Private Sub Command1_Click() Dim i As Integer, j As Integer Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = False '设置EXCEL不可见 Set xlBook = xlApp....
  • VB中数字的交换

    2016-03-26 09:59:28
    1.首先,在左侧工具栏找到command button的图标,并在适当位置处创建。 2.在属性窗口找到capition并在他的后面将名字改为“交换”。 3.在窗体双击“交换”,并在弹出的对话框输入以下内容 Cls Dim b As ...
  • VB中的IF语句

    2019-11-29 22:35:53
    Private Sub Command1_Click() Dim a As String, b As String a = Me.Text1.Text b = Me.Text2.Text If Val(a) = Val(b) Then MsgBox “a与b输入点相同” Else If Val(a) < Val(b) Then MsgBox “a小于b...
  • Private Sub Command1_Click() Text1.Text = “” Dim s As Long, i As Long Dim a() Do ReDim Preserve a(s) a(s) = InputBox(“请输入字符串,输入空串时结束”, “输入”) s = s + 1 Loop Until a(s - 1) = “” ...
  • 如何在VB中引用ADO?

    千次阅读 2016-11-15 14:36:52
    VB6.0引用ADO: 通过选择“工程”菜单的“引用...”来为 ADO 对象库添加一个引用,然后在“引用...”对话框选择 Microsoft ActiveX Data Objects 2.0 Library 点上图确定。工程就引用了ADO...
  • VB中do循环的四种格式

    千次阅读 2019-09-08 17:35:44
    VB中,do循环具有四种格式。 格式1: do while 条件 循环体 loop 格式2: do until 条件 循环体 loop 格式3: do 循环体 loop while 条件 格式4: do 循环体 loop until 条件 下面是这4种格式的4个例子,...
  • VB中递归调用程序

    2019-03-02 14:20:58
    Private Sub Command1_Click()  Dim x As Integer  x=Val(InputBox(“请输入一个整数”))  fun(x) End Sub Private Sub fun(x As Integer)  If x Mod 2=0 Then fun(x / 2)  Print x; End Sub 问题...
  • PictureBox对象可以说是任何对象的原始型态,它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,...Command1_Clic...
  • 相对于VB5.0的DAO他具有更为简化的对象模型,无论是存取本地的还是远程的数据,都提供了一致的接口. 对于ADO其中对象来说,我觉得比较重要的是:Command,Connection,Recordset对象。  虽然严格的说这是不准确的,但...
  • VB中的二维鞍点

    2016-06-02 18:10:06
    今天学习了用vb的程序输出一个二维鞍点,程序如下: Option Base 1 Dim anma() As Integer Dim m As Byte, n As Byte Private Sub Command1_Click()  Cls  Me.Font.Size = 30  m = 5: n = 6  ReDim anma...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 685
精华内容 274
关键字:

vb中command