form1.frm

vb 疑问解答

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4275
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6105
   LinkTopic       =   "Form1"
   ScaleHeight     =   4275
   ScaleWidth      =   6105
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command4 
      Caption         =   "Command4"
      Height          =   255
      Left            =   2280
      TabIndex        =   5
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   255
      Left            =   2280
      TabIndex        =   4
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   255
      Left            =   2280
      TabIndex        =   3
      Top             =   840
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   255
      Left            =   2280
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   $"Form1.frx":0000
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2655
      Left            =   480
      TabIndex        =   2
      Top             =   1560
      Width           =   5055
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Label1"
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   0
      Width           =   4335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

 Dim yy() As String
Public Function ReadIniSection(Filename As String, Section As String) As String
Dim RetVal As String * 4096, v As Long
    v = GetPrivateProfileSection(Section, RetVal, 4096, Filename)
    ReadIniSection = Left(RetVal, v - 1)
End Function
'=============读取INI文件============

Function shellexe(i As Integer)
Dim xx As String, caidan As String, cap() As String

    xx = App.Path & "\菜单.ini"
    caidan = ReadIniSection(xx, "地址")
    cap = Split(caidan, "】")
    yy = Split(cap(i - 1), "【")
    
    Label1.Caption = yy(0)
    shellexe = w
End Function

Private Sub Command1_Click()
x = shellexe(1)
Command1.Caption = yy(1)
End Sub

Private Sub Command2_Click()
x = shellexe(2)
Command2.Caption = yy(1)
End Sub

Private Sub Command3_Click()
x = shellexe(3)
Command3.Caption = yy(1)
End Sub

Private Sub Command4_Click()
x = shellexe(4)
Command4.Caption = yy(1)
End Sub