waves521的专栏

Dim max_index As IntegerPrivate Sub Command1_Click()max_index = 0max_index = max_index + 1Load tuichu(max_index)tuichu(max_index).Caption = Text1.Textmax_index = max_index + 1Load xinzeng(max_in

Private Sub Command1_Click() Unload Me End Sub Private Sub sunfile2_Click() Text1.BackColor = RGB(0, 0, 255) End Sub Private Sub sunfile3_Click() Text1.BackColor = vbRed End Sub Private Sub Text

Option Explicit  在模块级别中使用，强制显式声明模块中的所有变量。 函数可以查 意思很明确(根据英文意思） Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hMenu