📄 chaobiao.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form ChaoBiao
Caption = "485抄表"
ClientHeight = 6660
ClientLeft = 60
ClientTop = 450
ClientWidth = 9825
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 6660
ScaleWidth = 9825
WindowState = 2 'Maximized
Begin MSCommLib.MSComm Com485
Left = 7560
Top = 3960
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.PictureBox Picture3
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 270
Left = 0
ScaleHeight = 270
ScaleWidth = 9825
TabIndex = 10
Top = 6390
Width = 9825
Begin VB.Image Image2
Height = 255
Left = 120
Stretch = -1 'True
Top = 0
Width = 9495
End
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 5655
Left = 120
ScaleHeight = 5655
ScaleWidth = 7215
TabIndex = 2
Top = 600
Width = 7215
Begin MSFlexGridLib.MSFlexGrid Grid
Height = 4575
Left = 0
TabIndex = 3
ToolTipText = "右键操作"
Top = 0
Width = 5295
_ExtentX = 9340
_ExtentY = 8070
_Version = 393216
AllowUserResizing= 3
BorderStyle = 0
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 375
Left = 0
ScaleHeight = 375
ScaleWidth = 9825
TabIndex = 1
Top = 0
Width = 9825
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "抄表程序 -- 沈礼礼"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 240
TabIndex = 4
Top = 45
Width = 7815
End
Begin VB.Image Image1
Height = 495
Left = 0
Picture = "ChaoBiao.frx":0000
Stretch = -1 'True
Top = 0
Width = 9615
End
End
Begin VB.PictureBox SYS_CZ
Align = 4 'Align Right
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 6015
Left = 8265
Picture = "ChaoBiao.frx":06B4
ScaleHeight = 6015
ScaleWidth = 1560
TabIndex = 0
Top = 375
Width = 1560
Begin SLL_App.isButton S_CB
Height = 1095
Left = 120
TabIndex = 5
Top = 120
Width = 1335
_ExtentX = 2355
_ExtentY = 1931
Icon = "ChaoBiao.frx":2C1AE
Style = 7
Caption = "抄表"
IconSize = 38
IconAlign = 3
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin SLL_App.isButton S_SX
Height = 1095
Left = 120
TabIndex = 6
Top = 2520
Width = 1335
_ExtentX = 2355
_ExtentY = 1931
Icon = "ChaoBiao.frx":2C600
Style = 7
Caption = "刷新"
IconSize = 38
IconAlign = 3
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin SLL_App.isButton S_TC
Height = 1095
Left = 120
TabIndex = 7
Top = 4920
Width = 1335
_ExtentX = 2355
_ExtentY = 1931
Icon = "ChaoBiao.frx":2CA52
Style = 7
Caption = "退出"
IconSize = 38
IconAlign = 3
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin SLL_App.isButton S_BZ
Height = 1095
Left = 120
TabIndex = 8
Top = 3720
Width = 1335
_ExtentX = 2355
_ExtentY = 1931
Icon = "ChaoBiao.frx":2CEA4
Style = 7
Caption = "帮助"
IconSize = 42
IconAlign = 3
CaptionAlign = 4
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin SLL_App.isButton S_TZ
Height = 1095
Left = 120
TabIndex = 9
Top = 1320
Width = 1335
_ExtentX = 2355
_ExtentY = 1931
Icon = "ChaoBiao.frx":2E1AE
Style = 7
Caption = "停止"
IconSize = 38
IconAlign = 3
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Image SUnCheck
Height = 255
Left = 7560
Top = 1080
Width = 255
End
Begin VB.Image SCheck
Height = 255
Left = 7440
Picture = "ChaoBiao.frx":2E600
Stretch = -1 'True
Top = 600
Visible = 0 'False
Width = 255
End
Begin VB.Menu sys
Caption = "操作"
Visible = 0 'False
Begin VB.Menu BH_LX
Caption = "表号连续"
End
Begin VB.Menu menuline_002
Caption = "-"
End
Begin VB.Menu YXXT
Caption = "以下相同"
End
Begin VB.Menu menuline_003
Caption = "-"
End
Begin VB.Menu SD
Caption = "台体上电"
End
Begin VB.Menu JD
Caption = "台体降电"
End
Begin VB.Menu menuline_005
Caption = "-"
End
Begin VB.Menu CD_DD
Caption = "单点抄读"
End
Begin VB.Menu menuline_001
Caption = "-"
End
Begin VB.Menu BH_QX
Caption = "表号全选"
Checked = -1 'True
End
End
End
Attribute VB_Name = "ChaoBiao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/09/27
'描 述：电表业645规约的电表485通讯代码
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Public BiaoZhi, GeShi, ZiJieShu, ZiDuanChangDu, KongZhiMa, MiMa, DuXie As String
Dim Sk As Boolean
Private Sub BH_LX_Click()
LianHao Grid.Row, Grid.Col, Val(gIntMeters)
End Sub
Private Sub BH_QX_Click()
If BH_QX.Checked = True Then
BiaoHao_QuanXuan (False)
BH_QX.Checked = False
Else
BiaoHao_QuanXuan (True)
BH_QX.Checked = True
End If
End Sub
Private Sub CD_DD_Click()
TT_DDCD_Click
End Sub
Private Sub Form_Load()
S_BZ.CaptionAlign = isbbottom
S_TC.CaptionAlign = isbbottom
S_CB.CaptionAlign = isbbottom
S_SX.CaptionAlign = isbbottom
S_TZ.CaptionAlign = isbbottom
Image2.Picture = Image1.Picture
IniList Fa_Name, Val(gIntMeters)
SRun = False
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.Height < 7200 Then Me.Height = 7200
If Me.Width < 10000 Then Me.Width = 10000
Picture2.Top = Picture1.Height
Picture2.Left = 0
Picture2.Width = Me.ScaleWidth - SYS_CZ.Width
Picture2.Height = Me.ScaleHeight - Picture1.Height - Picture3.Height
Grid.Top = 0
Grid.Left = 0
Grid.Width = Picture2.ScaleWidth
Grid.Height = Picture2.ScaleHeight
Image1.Top = 0
Image1.Left = 0
Image1.Width = Me.ScaleWidth
Image1.Height = Picture1.Height
Image2.Top = 0
Image2.Left = 0
Image2.Width = Me.ScaleWidth
Image2.Height = Picture3.Height
End Sub
Private Sub Grid_DblClick()
If Grid.Col = 1 Then
If Grid.CellPicture = SUnCheck.Picture Then
Set Grid.CellPicture = Nothing
Set Grid.CellPicture = SCheck.Picture
ElseIf Grid.CellPicture = SCheck.Picture Then
Set Grid.CellPicture = Nothing
Set Grid.CellPicture = SUnCheck.Picture
End If
End If
End Sub
Private Sub Grid_KeyPress(KeyAscii As Integer)
If Grid.Col < 2 Then Exit Sub
On Error Resume Next
Select Case KeyAscii
Case 8 '退格
Grid.TextMatrix(Grid.Row, Grid.Col) = Mid(Grid.TextMatrix(Grid.Row, Grid.Col), 1, Len(Grid.TextMatrix(Grid.Row, Grid.Col)) - 1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -