详细专案：


Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString 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
Function GetIniS(ByVal inifilename As String, ByVal SectionName As String, ByVal KeyWord As String, Optional ByVal DefString As String) As String
    Dim ResultString As String * 128, Temp%
    Dim s$, i%
    Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, inifilename)
    If Temp% > 0 Then
        For i = 1 To 128
            If Asc(Mid$(ResultString, i, 1)) <> 0 Then
                s = s & Mid$(ResultString, i, 1)
            End If
        Next
    Else
        Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, inifilename)
        s = DefString
    End If
    GetIniS = s
End Function


Private Sub Command1_Click()
On Error GoTo wtf
Image1(0).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(1).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(2).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(3).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(4).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(5).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(6).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(7).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Image1(8).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Label1(9).Caption = "N/A"
Label1(10).Caption = "N/A"
Label1(11).Caption = "N/A"
Label1(12).Caption = "N/A"
Label1(14).Caption = "N/A"
Label1(15).Caption = "N/A"
Label1(16).Caption = "N/A"
Label1(17).Caption = "N/A"
Label1(13).Caption = "N/A"
Label3(0).Caption = Label3(0).Caption - 1
Timer1.Enabled = True
Image1(Index).Picture = LoadPicture(App.Path & "\Data\Background\Maps\kengdie.bmp")
Label1(Index).Caption = ""
Dim i As Integer
Label2.Caption = (Label3(0).Caption - 1) * 9
For x = 0 To 8
 Label1(i).Caption = Trim(GetIniS(App.Path & "\Data\Setting\Maps.LS", "maps", Label2.Caption))
 Label1(i + 9).Caption = Trim(GetIniS(App.Path & "\Data\Setting\Maps.ini", "name", Label1(i).Caption))
 If Len(Dir(App.Path & "\Data\Background\Maps\" + Label1(i ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容