VB 两小时

VB 两小时
2011年09月25日
　　Option Explicit
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameter As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
　　Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
　　Private r As Long
　　Private entry As String
　　Private iniPath As String
　　Function GetFormINI(AppName As String, KeyName As String, FileName As String) As String
　　Dim RetStr As String
　　RetStr = String(255, Chr(0))
　　GetFormINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
　　End Function
　　Private Sub Command1_Click()
　　entry = Text1.Text
　　r = WritePrivateProfileString("用户信息", "姓名", entry, iniPath)
　　If r 1 Then MsgBox "写姓名出错！"
　　End Sub
　　Private Sub Command2_Click()
　　Text1.Text = GetFormINI("用户信息", "姓名", iniPath)
　　End Sub
　　Private Sub Command3_Click()
　　entry$ = Text2.Text
　　r = WritePrivateProfileString("用户信息", "序列号", entry, iniPath)
　　If r 1 Then MsgBox "写姓名出错！"
　　End Sub
　　Private Sub Command4_Click()
　　Text2.Text = GetFormINI("用户信息", "序列号", iniPath)
　　End Sub
　　Private Sub Command5_Click()
　　Text2.Text = GetFormINI("用户信息", "序列号", iniPath)
　　Text1.Text = GetFormINI("用户信息", "姓名", iniPath)
　　End Sub
　　Private Sub Command6_Click()
　　Command1_Click
　　Command3_Click
　　End Sub
　　Private Sub Command7_Click()
　　Text1.Text = ""
　　Text2.Text = ""
　　End Sub
　　Private Sub Command8_Click()
　　End
　　End Sub
　　Private Sub Form_Load()
　　iniPath$ = App.Path + "\rwini32.ini"
　　Command7_Click
　　End Sub