- 博客(12)
- 资源 (14)
- 收藏
- 关注
RSS订阅原创 如何用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
1751
原创 VB 编程中打开默认网址和 Email 的更简单的方法
打开网址：Call Shell("start http://g.cn", vbHide)打开 Email：Call Shell("start mailto:admin@gmail.com", vbHide)
2009-12-26 21:13:00
1190
原创 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
1473
原创 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
732
原创 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
1590
原创 给一大段 VB 程序一次性加上注释符号
VB 注释程序代码的符号是 ，只要在某行程序前面加上该符号就可以注释该行程序。但如果程序代码语句很多的时候，一行一行地注释就非常不方便。其实 VB 本身提供了一次性注释多条语句的功能：在主菜单“视图”选项的“工具栏”下，选中“编辑”，VB 的界面会出现一排工具按钮，其中就有用于“设置注释块”和“解除注释块”功能的按钮。选中一块语句，按该按钮即可。
2009-12-26 21:08:00
8064
原创 VB 中在一个窗体中执行另一个窗体中的代码
Private Sub Form_Click() frm2.Form_Click() 在frm1 里执行 frm2 的 From_Click 代码 End Sub
2009-12-26 21:08:00
4243
1
原创 一次性清空本窗口内所有文本框(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
1030
原创 如何让一个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
2017
原创 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
911
VB远程开机(源码)
2016-09-07
evtsys服务器日志采集工具
2016-01-19
OA办公自动化系统VB+SQL
2008-06-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人