jmkj
所属分类：界面编程
开发工具：Visual Basic
文件大小：2720KB
下载次数：2
上传日期：2017-03-09 18:20:01
上 传 者：
动手动脚
说明： 从开始学习VB到现在用过最好的几种界面控件，且破解，且免费，大放送了。
(From start learning VB now best used several interface controls, and cracks, and free, the big run.)
文件列表:
jmkj\817865253skins\skins\发布Jsskin\1.jss (39196, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\10.jss (50836, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\11.jss (68248, 2006-03-25)
jmkj\817865253skins\skins\发布Jsskin\12.jss (36376, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\13.jss (37916, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\14.jss (50712, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\15.jss (61300, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\16.jss (64588, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\17.jss (47080, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\18.jss (66372, 2006-03-25)
jmkj\817865253skins\skins\发布Jsskin\19.jss (76484, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\2.jss (39196, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\20.jss (48832, 2005-12-22)
jmkj\817865253skins\skins\发布Jsskin\21.jss (38700, 2005-12-23)
jmkj\817865253skins\skins\发布Jsskin\22.jss (60364, 2006-03-25)
jmkj\817865253skins\skins\发布Jsskin\3.jss (39324, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\4.jss (39160, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\5.jss (35920, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\6.jss (35052, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\7.jss (49144, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\8.jss (55584, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\9.jss (45100, 2005-12-21)
jmkj\817865253skins\skins\发布Jsskin\clsBitmap.cls (2936, 2001-06-11)
jmkj\817865253skins\skins\发布Jsskin\clsOnTop.cls (1070, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\CurtButton.oca (26112, 2006-03-11)
jmkj\817865253skins\skins\发布Jsskin\Form1.frm (4480, 2004-11-04)
jmkj\817865253skins\skins\发布Jsskin\JSBORDER.ctl (11457, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\JSBORDER.ctx (786, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\JSCAPTION.ctl (31769, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\JSCAPTION.ctx (786, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\JSSKIN.exp (990, 2005-12-05)
jmkj\817865253skins\skins\发布Jsskin\JSSKIN.lib (2586, 2005-12-05)
jmkj\817865253skins\skins\发布Jsskin\JSSKIN.oca (30208, 2001-06-26)
jmkj\817865253skins\skins\发布Jsskin\JSSKIN.VBG (58, 2005-12-05)
jmkj\817865253skins\skins\发布Jsskin\JSSKIN.vbw (192, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\Module1.bas (2435, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\MSSCCPRJ.SCC (628, 2005-12-05)
jmkj\817865253skins\skins\发布Jsskin\StatusBarTest.oca (21504, 2005-12-04)
jmkj\817865253skins\skins\发布Jsskin\test.exe (126976, 2008-10-30)
jmkj\817865253skins\skins\发布Jsskin\test.frm (7806, 2005-12-05)
... ...
VERSION 5.00
Begin VB.PropertyPage 控件信息
Caption = "控件说明"
ClientHeight = 5805
ClientLeft = 0
ClientTop = 0
ClientWidth = 5895
PaletteMode = 0 'Halftone
ScaleHeight = 387
ScaleMode = 3 'Pixel
ScaleWidth = 393
Begin VB.Frame Frame4
Caption = "注册说明"
Height = 1335
Left = 120
TabIndex = 9
Top = 4320
Width = 5655
Begin VB.CommandButton CmdReg
BackColor = &H00C0C0FF&
Caption = "完成注册"
Height = 255
Left = 4440
Style = 1 'Graphical
TabIndex = 17
Top = 960
Width = 1095
End
Begin VB.TextBox TSn
BackColor = &H00000080&
ForeColor = &H00FFFFFF&
Height = 270
Left = 840
TabIndex = 16
Top = 960
Width = 3495
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "复制ID(&C)"
Height = 255
Left = 4440
Style = 1 'Graphical
TabIndex = 13
Top = 600
Width = 1095
End
Begin VB.TextBox Tid
BackColor = &H00800000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 840
Locked = -1 'True
TabIndex = 12
Top = 650
Width = 3495
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "注册号:"
Height = 180
Left = 120
TabIndex = 15
Top = ***0
Width = 630
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "机器ID:"
Height = 180
Left = 120
TabIndex = 11
Top = 680
Width = 630
End
Begin VB.Label Label2
Caption = "注册费存入以后,请同我们联系，并告诉我们你的<机器ID>,然后在下面的相应位置输入我们给你的注册号。"
Height = 375
Left = 120
TabIndex = 10
Top = 240
Width = 5415
End
End
Begin VB.Frame Frame1
Caption = "怎样购买"
Height = 735
Left = 120
TabIndex = 7
Top = 2280
Width = 5655
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = " 免费使用，如果有商业应用请联系枕善居或者作者"
Height = 420
Left = 120
TabIndex = 8
Top = 240
Width = 5415
End
End
Begin VB.Frame Frame3
Caption = "联系方式"
ForeColor = &H00FF0000&
Height = 975
Left = 120
TabIndex = 2
Top = 1200
Width = 5670
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "http://www.nocstudio.com"
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 14
Top = 720
Width = 5415
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "E-Mail:huacn131@163.com"
ForeColor = &H00FF0000&
Height = 180
Index = 0
Left = 3000
TabIndex = 6
Top = 720
Width = 2070
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "QQ:(如不在线请留言)"
ForeColor = &H00FF0000&
Height = 180
Index = 0
Left = 240
TabIndex = 5
Top = 480
Width = 1710
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系人:李华顺"
ForeColor = &H00FF0000&
Height = 180
Left = 3000
TabIndex = 4
Top = 480
Width = 1170
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "咨询电话: "
ForeColor = &H00FF0000&
Height = 180
Left = 240
TabIndex = 3
Top = 240
Width = 900
End
End
Begin VB.Frame Frame2
Caption = "为什么要使用界面控件?"
ForeColor = &H00C00000&
Height = 1035
Left = 120
TabIndex = 0
Top = 120
Width = 5670
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"Readme.pgx":0000
ForeColor = &H00C00000&
Height = 735
Left = 120
TabIndex = 1
Top = 240
Width = 5460
End
End
End
Attribute VB_Name = "控件信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub txt说明_Change()
Changed = True
End Sub
Private Sub CmdReg_Click()
If TSn.Text <> "" Then
CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\华盛软件工作室\NiceForm"
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\华盛软件工作室\NiceForm", "SN", TSn.Text, REG_SZ
End If
MsgBox " 已经将当前的注册号存入注册表,如注册号是正确 " & vbLf & _
"的,哪么你编译程序时就不会再有提示窗口.编译后的 " & vbLf & _
"程序在另的电脑上面也不会有提示窗口.", vbInformation, "注册提示"
End Sub
Private Sub Command1_Click()
Clipboard.SetText Tid.Text
MsgBox "已经将你的机器ID: " & Tid.Text & " 复制到了剪切板中.", vbInformation, "提示"
End Sub
Private Sub PropertyPage_SelectionChanged()
Tid.Text = Int(GetSerialNumber("C:\") * 1.25) * 4
End Sub
近期下载者：
相关文件：
收藏者：