彭世瑜的博客

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

自定义博客皮肤

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

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

阅读数 117

评论数 0

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

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

2017-02-22 11:38:26

阅读数 114

评论数 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

阅读数 260

评论数 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

阅读数 723

评论数 0

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

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

2017-02-18 13:49:34

阅读数 240

评论数 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

阅读数 1015

评论数 0

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

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

2017-02-07 09:09:41

阅读数 726

评论数 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

阅读数 158

评论数 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

阅读数 337

评论数 0

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