16 域樹臨風

尚未进行身份认证

我要认证

睇乜嘢唔嘢讲

等级
TA的排名 30w+

如何用VB获取程序启动参数

比如一个VB编好的程序(如abc.exe),窗体中只有个文本框控件,如果在运行中输入“D:\abc.exe 123456789”(假设放在D盘根目录),运行后,程序就会自动获取空格后面的参数,在文本框中显示出来为123456789。这个在编程中是这样做到的VB code private sub form_load()     test1.text=command$end sub

2013-09-05 22:04:19

如何用VB制作DLL文件

<br />

2011-01-18 20:32:00

VB 编程中打开默认网址和 Email 的更简单的方法

打开网址:Call Shell("start http://g.cn", vbHide)打开 Email:Call Shell("start mailto:admin@gmail.com", vbHide)

2009-12-26 21:13:00

VB 编程中如何使窗口右上角的关闭按钮(X)失效

1、Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)        Cancel = True       End Sub    2、Private Sub Form_Unload(Cancel As Integer)        Cancel = True       End

2009-12-26 21:11:00

VB 中使 TextBox 按 Mouse 右键时只出现自定 PopUp Menu

一般我们可能在 TextBox 的 MouseDown Event 中 Check 是否按右键,若是,则设定出现 Popup Menu 程式如下:   Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Button = 2 Then  

2009-12-26 21:10:00

VB怎样判断、防止程序重复执行

Private Sub Form_load()    判断程序是否已经运行    If App.PrevInstance Then     MsgBox "本程序已经运行!", vbInformation Or vbOKOnly, "提示信息"     Unload Me     Exit Sub    End If    以下是主要程序    ……

2009-12-26 21:09:00

VB 中在一个窗体中执行另一个窗体中的代码

Private Sub Form_Click()        frm2.Form_Click() 在frm1 里执行 frm2 的 From_Click 代码 End Sub 

2009-12-26 21:08:00

给一大段 VB 程序一次性加上注释符号

VB 注释程序代码的符号是 ,只要在某行程序前面加上该符号就可以注释该行程序。但如果程序代码语句很多的时候,一行一行地注释就非常不方便。其实 VB 本身提供了一次性注释多条语句的功能:在主菜单“视图”选项的“工具栏”下,选中“编辑”,VB 的界面会出现一排工具按钮,其中就有用于“设置注释块”和“解除注释块”功能的按钮。选中一块语句,按该按钮即可。

2009-12-26 21:08:00

一次性清空本窗口内所有文本框(TextBox)

Dim txt As Control     For Each txt In Me.Controls      If TypeOf txt Is TextBox Then       txt.Text = ""      End IfNext txt

2009-12-26 21:07:00

如何让一个VB窗口总是处于各窗口的最上层

代码如下: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, By

2009-12-26 21:04:00

VB一次关闭窗口

Private Sub Form_Unload(Cancel As Integer) 卸载事件(这样在关闭程序时释放内存空间)Dim n As IntegerFor n = 0 To Forms.conunt - 1 通过循环找到所有的窗体。forms.count表示窗体的总数。    Unload Forms(n) 卸载找到的每个窗体NextEnd Sub(个人整理而得,如果发现有错漏请

2008-06-15 10:38:00
勋章 我的勋章
  • 分享精英
    分享精英
    成功上传11个资源即可获取