【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：7.2.1.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Form2 
       Caption         =   "Form2"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form2"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form2"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    Dim a As String
    a = InputBox("请输入文件名")
    If (Right(a, 4) = ".txt") Then
    '取后4个字符与.txt比较
    MsgBox "该文件为文本类型"
    End If
    If (Right(a, 4) = ".jpg") Then
    '取后4个字符与.jpg比较
    MsgBox "该文件为图片类型"
    End If
    End Sub
    
    

上一篇：7.1.2.frm
下一篇：按摩连锁财务管理系统|按摩连锁财务管理系统第一版