frmtalk.frm
来自「baidu_IM源程序,解压后就可以看到。自己还没有试过,不过貌似很不错的」· FRM 代码 · 共 1,346 行 · 第 1/3 页
FRM
1,346 行
BorderStyle = 0 'None
Height = 375
Index = 18
Left = 1920
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 35
Top = 600
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 17
Left = 1560
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 34
Top = 600
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 16
Left = 1200
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 33
Top = 600
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 15
Left = 840
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 32
Top = 600
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 14
Left = 480
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 31
Top = 600
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 13
Left = 120
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 30
Top = 600
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 12
Left = 4440
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 29
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 11
Left = 4080
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 28
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 10
Left = 3720
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 27
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 9
Left = 3360
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 26
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 8
Left = 3000
ScaleHeight = 375
ScaleWidth = 495
TabIndex = 25
Top = 240
Width = 495
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 7
Left = 2640
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 24
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 6
Left = 2280
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 23
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 5
Left = 1920
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 22
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 4
Left = 1560
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 21
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 3
Left = 1200
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 20
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 2
Left = 840
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 19
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 1
Left = 480
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 18
Top = 240
Width = 375
End
Begin VB.PictureBox FacePic
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 375
Index = 0
Left = 120
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 17
Top = 240
Width = 375
End
End
Begin RichTextLib.RichTextBox RichTextBox
CausesValidation= 0 'False
Height = 3975
Index = 0
Left = 120
TabIndex = 13
Top = 120
Width = 6135
_ExtentX = 10821
_ExtentY = 7011
_Version = 393217
BackColor = -2147483639
HideSelection = 0 'False
ReadOnly = -1 'True
ScrollBars = 2
DisableNoScroll = -1 'True
AutoVerbMenu = -1 'True
TextRTF = $"frmTalk.frx":0000
End
Begin VB.Timer Timer1
Interval = 1000
Left = 3600
Top = 5640
End
Begin VB.CommandButton CmdClear
BackColor = &H80000014&
Caption = "清屏"
Height = 375
Left = 4080
MaskColor = &H80000009&
TabIndex = 4
Top = 5640
Width = 975
End
Begin VB.CommandButton cmdSendMsg
Caption = "发送"
Height = 375
Left = 5040
MaskColor = &H8000000E&
TabIndex = 2
Top = 5640
Width = 975
End
Begin VB.ComboBox Combo1
Height = 300
Left = 5040
TabIndex = 3
Text = "Hi."
Top = 5640
Width = 1215
End
Begin VB.Frame Frame2
BackColor = &H80000009&
Height = 6015
Left = 6360
TabIndex = 1
Top = 0
Width = 2055
Begin VB.PictureBox Picture1
BackColor = &H8000000E&
FillColor = &H8000000B&
ForeColor = &H8000000E&
Height = 1455
Left = 120
ScaleHeight = 1395
ScaleMode = 0 'User
ScaleWidth = 1755
TabIndex = 74
Top = 480
Width = 1815
End
Begin VB.Frame Frame3
BackColor = &H80000009&
Caption = "表情"
Height = 255
Left = 120
TabIndex = 73
Top = 240
Width = 1815
End
Begin RichTextLib.RichTextBox RichTextBox
Height = 615
Index = 2
Left = 120
TabIndex = 14
Top = 2040
Width = 1815
_ExtentX = 3201
_ExtentY = 1085
_Version = 393217
Enabled = -1 'True
ReadOnly = -1 'True
TextRTF = $"frmTalk.frx":009D
End
Begin VB.CommandButton Cmd_U
Caption = "U"
Height = 375
Left = 960
TabIndex = 12
Top = 5520
Width = 975
End
Begin VB.CommandButton Cmd_I
Caption = "I"
Height = 375
Left = 960
TabIndex = 11
Top = 5040
Width = 975
End
Begin VB.CommandButton Cmd_B
Caption = "B"
Height = 375
Left = 960
TabIndex = 10
Top = 4560
Width = 975
End
Begin VB.ComboBox Combo3
Height = 300
Left = 120
TabIndex = 9
Text = "字体"
Top = 2880
Width = 1815
End
Begin VB.ComboBox Combo2
Height = 300
Left = 960
TabIndex = 8
Text = "大小"
Top = 3360
Width = 975
End
Begin VB.VScrollBar VScroll3
Height = 2535
LargeChange = 20
Left = 600
Max = 255
SmallChange = 5
TabIndex = 7
Top = 3360
Width = 255
End
Begin VB.VScrollBar VScroll2
Height = 2535
LargeChange = 20
Left = 360
Max = 255
SmallChange = 5
TabIndex = 6
Top = 3360
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 2535
LargeChange = 20
Left = 120
Max = 255
SmallChange = 5
TabIndex = 5
Top = 3360
Width = 255
End
End
Begin VB.TextBox SendMsg
Height = 1575
Left = 120
MaxLength = 400
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 4080
Width = 6135
End
Begin RichTextLib.RichTextBox RichTextBox
Height = 1215
Index = 1
Left = 240
TabIndex = 15
Top = 4200
Width = 1575
_ExtentX = 2778
_ExtentY = 2143
_Version = 393217
Enabled = -1 'True
TextRTF = $"frmTalk.frx":0159
End
End
Attribute VB_Name = "frmTalk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim Focus As Boolean
Dim ToUser As String
Dim MyB As String
Dim MyI As String
Dim MyU As String
Dim MyColor As String
Dim MyFont As String
Dim MySize As String
Dim MyFace As String
Dim MyFacePic As Long
Private Sub Cmd_B_Click()
If MyB = "" Then
MyB = "[#B]"
RichTextBox(2).SelStart = 0
RichTextBox(2).SelLength = Len(RichTextBox(2).Text)
RichTextBox(2).SelBold = True
Else
MyB = ""
RichTextBox(2).SelStart = 0
RichTextBox(2).SelLength = Len(RichTextBox(2).Text)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?