彭世瑜的博客

记录我的code历程 个人主页:www.pengshiyu.com

VB编程:仿QQ聊天框的抖动效果-58

Dim a Private Sub Command1_Click()     a = 0     Timer1.Enabled = True End Sub Private Sub Form_Load()     Timer1.Enabled = False    ...

2017-02-22 17:59:07

阅读数:35

评论数:0

VB编程:ReleaseCapture&SendMessage拖动无标题栏的窗体-57

Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "...

2017-02-22 11:38:26

阅读数:44

评论数:0

VB编程:GetSetting控制软件试用期-56

Private Sub Form_Load()     Dim ss As Date     Dim dd As Integer     If GetSetting(appname:="this", section:=&am...

2017-02-20 18:11:14

阅读数:111

评论数:0

VB编程:掷骰子游戏-55

Private Sub Command1_Click()     Timer1.Enabled = True  '开始      End Sub Private Sub Command2_Click()     Timer1.Enabled = False   '...

2017-02-18 15:00:03

阅读数:131

评论数:0

VB编程:用Shell函数打开记事本-54

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBu...

2017-02-18 13:49:34

阅读数:41

评论数:0

VB编程:自定义过程改变窗体颜色-53

程序源码: Dim A(5) As String Private Sub Combo1_click()     A(5) = Combo1.Text End Sub Private Sub Command1_Click()     CB A(5), Form1 E...

2017-02-07 10:45:34

阅读数:156

评论数:0

VB编程:统计字符个数-52

程序源代码: Private Sub Command1_Click()     '*****************清空************     Label4.Caption = ""     Label6.Caption ...

2017-02-07 09:09:41

阅读数:151

评论数:0

VB编程:去除文本框首尾空行-51

程序代码 Private Sub Command1_Click()     Dim j As Integer     Dim i(100) As String     Text2 = ""     For j = 1 To Len(T...

2017-02-06 11:43:40

阅读数:42

评论数:0

VB编程:获取字符串中数字个数-50

  程序代码: Private Sub Form_Click()     Dim i As Integer, j As Integer     j = 0                                  ‘ 计数     Dim str As Strin...

2017-02-06 09:59:38

阅读数:37

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭