?? frmcomputer.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmComputer
BorderStyle = 3 'Fixed Dialog
Caption = "計(jì)算機(jī)狀態(tài)"
ClientHeight = 5010
ClientLeft = 45
ClientTop = 330
ClientWidth = 5730
Icon = "frmComputer.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 5730
StartUpPosition = 2 '屏幕中心
WhatsThisHelp = -1 'True
Begin VB.CommandButton Command3
Caption = "關(guān) 閉"
Height = 375
Left = 3840
TabIndex = 4
Top = 4560
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "刷新列表"
Height = 375
Left = 2280
TabIndex = 3
Top = 4560
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "結(jié)束程序"
Height = 375
Left = 600
TabIndex = 1
Top = 4560
Width = 1455
End
Begin VB.ListBox List1
Height = 4020
Left = 0
TabIndex = 0
Top = 360
Width = 5655
End
Begin VB.Label Label1
Caption = "當(dāng)前應(yīng)用程序"
Height = 255
Left = 120
TabIndex = 2
Top = 120
Width = 1815
End
End
Attribute VB_Name = "frmComputer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public SelectComIndex As Long
Private Sub Command1_Click()
On Error Resume Next
frmMain.Winsock1(SelectComIndex).SendData "_prog" + Chr(0) + "close" + Chr(0) + CStr(List1.ItemData(List1.ListIndex)) + Chr(0) + "OK$"
DoEvents
Command2_Click
End Sub
Private Sub Command2_Click()
On Error Resume Next
frmMain.Winsock1(SelectComIndex).SendData "_prog" + Chr(0) + "get" + Chr(0) + "OK$"
DoEvents
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command2_Click
End Sub
Public Sub FlashList1(strData As String)
'
Dim ThisStr() As String
' MsgBox strData
cc = 0
ReDim Preserve ThisStr(cc) As String
For i = 1 To Len(strData)
ab$ = Mid(strData, i, 1)
If ab$ = Chr(0) Then
cc = cc + 1
ReDim Preserve ThisStr(cc) As String
Else
ThisStr(cc) = ThisStr(cc) + ab$
End If
Next i
'MsgBox cc
List1.Clear
For i = 1 To cc Step 2
List1.AddItem ThisStr(i)
List1.ItemData(List1.NewIndex) = Val(ThisStr(i + 1))
Next i
Dim max As Long, f As Font
Me.ScaleMode = vbPixels
Set f = Me.Font
Set Me.Font = List1.Font
With List1
For i = 0 To .ListCount
If Me.TextWidth(.List(i)) > max Then
max = Me.TextWidth(.List(i))
End If
Next
End With
max = max + 10
Set Me.Font = f
SendMessage List1.hWnd, LB_SETHORIZONTALEXTENT, max, ByVal 0&
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -