11
2018
06

VB图片比例缩放

Private Sub Command1_Click() Call ZoomImages(Image1, Me, True) End Sub Sub ZoomImages(objImg As Image, objFrm As Form, Optional ByVal isCenter As Boolean =
作者:11505 | 分类:VB编程 | 浏览:517 | 评论:0
03
2013
02

花了五小时做的自动换ip程序

Private Sub Command1_Click()Shell "rasdial /DISCONNECT"Command2.Value = TrueEnd SubPrivate Sub Command2_Click()ShowDoEventsShell "rasdial ""宽带连接"" " & Text1.Text & " " & Text2.TextEnd SubP
作者:11505 | 分类:VB编程 | 浏览:791 | 评论:0
03
2013
02

给力！显示本地时间代码~

Private Sub Timer2_Timer()Text2 = Format(Now, "现在时间：yyyy年m月d日 aaaa hh:mm:ss")End Sub
作者:11505 | 分类:VB编程 | 浏览:397 | 评论:0
03
2013
02

VB中sendkeys用法

SendKeys模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，其使用格式为：object.SendKeys string“object”：表示WshShell对象“string”：表示要发送的按键指令字符串，需要放在英文双引号中。1.基本键　　一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一
作者:11505 | 分类:VB编程 | 浏览:550 | 评论:0
03
2012
09

vb创建文件夹

   Private Sub Command1_Click()On Error Resume Next   MkDir "C:\Program Files\xinmeng "End Sub
作者:11505 | 分类:VB编程 | 浏览:387 | 评论:0
‹‹ 1 ››