自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

彭世瑜的博客

记录我的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 206 0

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

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

2017-02-22 11:38:26 269 0

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

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

2017-02-20 18:11:14 490 0

原创 VB编程:掷骰子游戏-55

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

2017-02-18 15:00:03 1649 0

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

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ...

2017-02-18 13:49:34 519 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 2048 0

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

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

2017-02-07 09:09:41 2014 0

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

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

2017-02-06 11:43:40 336 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 1165 0

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