📄 frmmain.frm
字号:
End
Begin VB.Line Line2
BorderColor = &H00FEAF93&
X1 = 60
X2 = 2955
Y1 = 2205
Y2 = 2205
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "短消息"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 105
TabIndex = 7
Top = 2010
Width = 555
End
Begin VB.Line Line1
BorderColor = &H00FEAF93&
X1 = 60
X2 = 2955
Y1 = 585
Y2 = 585
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "我的手机信息"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 105
TabIndex = 6
Top = 390
Width = 1170
End
Begin VB.Image ImgIco5
Height = 240
Left = 255
Picture = "FrmMain.frx":393E
Top = 2310
Width = 240
End
Begin VB.Label LblTaskClose
BackStyle = 0 'Transparent
Caption = "关闭(&C)"
Height = 195
Left = 1650
TabIndex = 5
Top = 6360
Width = 690
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "任务栏"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 105
TabIndex = 4
Top = 105
Width = 585
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "任务栏"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C6ACAD&
Height = 195
Left = 120
TabIndex = 3
Top = 75
Width = 585
End
Begin VB.Image Image5
Height = 330
Left = 0
Picture = "FrmMain.frx":3CC8
Top = 6315
Width = 2670
End
Begin VB.Image Image4
Height = 5895
Left = 0
Picture = "FrmMain.frx":6B1A
Stretch = -1 'True
Top = 420
Width = 2670
End
Begin VB.Image Image2
Height = 420
Left = 0
Picture = "FrmMain.frx":6F8C
Top = 0
Width = 2670
End
End
Begin SICONZ.ProgressBar ProgressBar1
Height = 540
Left = 15
Top = 405
Width = 10410
_ExtentX = 18362
_ExtentY = 953
ToColor = 14215660
Value = 100
BorderStyle = 0
BorderColor = 14737632
Orientation = 3
BackColor = 15724527
Begin SICONZ.lvButtons_H lvButtons_H2
Height = 495
Left = 945
TabIndex = 23
Top = 15
Width = 1620
_ExtentX = 2858
_ExtentY = 873
Caption = "短信 "
CapAlign = 2
BackStyle = 2
Shape = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":AA6E
ImgSize = 24
cBack = -2147483633
End
Begin SICONZ.lvButtons_H lvButtons_H1
Height = 495
Left = 30
TabIndex = 22
Top = 15
Width = 1350
_ExtentX = 2381
_ExtentY = 873
Caption = "连接 "
CapAlign = 2
BackStyle = 2
Shape = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":B182
ImgSize = 24
cBack = -2147483633
End
Begin SICONZ.lvButtons_H lvButtons_H3
Height = 495
Left = 2130
TabIndex = 24
Top = 15
Width = 1620
_ExtentX = 2858
_ExtentY = 873
Caption = "短信 "
CapAlign = 2
BackStyle = 2
Shape = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":B896
ImgSize = 24
cBack = -2147483633
End
Begin SICONZ.lvButtons_H lvButtons_H4
Height = 495
Left = 3315
TabIndex = 25
Top = 15
Width = 1620
_ExtentX = 2858
_ExtentY = 873
Caption = "短信 "
CapAlign = 2
BackStyle = 2
Shape = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":BFAA
ImgSize = 24
cBack = -2147483633
End
Begin SICONZ.lvButtons_H lvButtons_H5
Height = 495
Left = 4500
TabIndex = 26
Top = 15
Width = 1620
_ExtentX = 2858
_ExtentY = 873
Caption = "短信 "
CapAlign = 2
BackStyle = 2
Shape = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":C6BE
ImgSize = 24
cBack = -2147483633
End
End
Begin SICONZ.XPOption CmdEnd
Height = 390
Left = 10125
TabIndex = 0
Top = 0
Width = 240
_ExtentX = 423
_ExtentY = 688
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin SICONZ.ProgressBar PBAR
Height = 6750
Left = 30
Top = 945
Width = 7050
_ExtentX = 12435
_ExtentY = 11906
ToColor = 15785169
Value = 100
BorderStyle = 0
Orientation = 2
BackColor = 15724527
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "短信软件 Ver 1.0"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 150
TabIndex = 1
Top = 75
Width = 1530
End
Begin VB.Shape Shape1
BorderColor = &H00E0E0E0&
Height = 7350
Left = 0
Top = 375
Width = 10440
End
Begin VB.Image Image3
Height = 390
Left = 10365
Picture = "FrmMain.frx":CDD2
Top = 0
Width = 75
End
Begin VB.Image ImgTitle
Height = 390
Left = 75
Picture = "FrmMain.frx":CFB4
Stretch = -1 'True
Top = 0
Width = 10065
End
Begin VB.Image Image1
Height = 390
Left = 0
Picture = "FrmMain.frx":D05E
Top = 0
Width = 75
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/05/22
'描 述：一个很酷的界面源码
'网 站：http://www.mndsoft.com/
'e-mail：mnd@mndsoft.com
'OICQ : 88382850
'****************************************************************************
Private Sub CmdConnect_Click()
frmLogin.Show vbModal, Me
End Sub
Private Sub CmdEnd_ValueChanged(blnValue As Boolean)
Unload Me
End Sub
Private Sub CmdFav_Click()
Web.Navigate App.Path & "\Data\Fav.htm"
End Sub
Private Sub CmdTask_Click()
If PICTAsk.Visible = True Then
PICTAsk.Visible = False
PBAR.Width = PBAR.Width + PICTAsk.Width
PBAR.Left = PICTAsk.Left
Else
PICTAsk.Visible = True
CmdTask.Value = True
PBAR.Width = PBAR.Width - PICTAsk.Width
PBAR.Left = 2760
End If
End Sub
Private Sub ImgTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, &HA1, 2, 0&
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImgTitle_MouseDown Button, Shift, X, Y
End Sub
Private Sub LblFile_Click()
PopupMenu Mnumenu
End Sub
Private Sub Picture2_Click()
End Sub
Private Sub Label4_Click()
FrmOption.Show vbModal, Me
End Sub
Private Sub LblTaskClose_Click()
CmdTask_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -