📄 frminoutnotepad.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmInOutNotePad
BorderStyle = 3 'Fixed Dialog
Caption = "记事簿"
ClientHeight = 3855
ClientLeft = 45
ClientTop = 330
ClientWidth = 6810
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3855
ScaleWidth = 6810
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdOKOrCancel
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Index = 2
Left = 5490
Style = 1 'Graphical
TabIndex = 2
Tag = "1014"
Top = 1155
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKOrCancel
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Index = 1
Left = 5490
Style = 1 'Graphical
TabIndex = 1
Tag = "1002"
Top = 765
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKOrCancel
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Index = 0
Left = 5490
Style = 1 'Graphical
TabIndex = 0
Tag = "1001"
Top = 360
UseMaskColor = -1 'True
Width = 1215
End
Begin TabDlg.SSTab sstInOuT
Height = 3735
Left = 60
TabIndex = 3
Top = 60
Width = 5295
_ExtentX = 9340
_ExtentY = 6588
_Version = 393216
Style = 1
Tabs = 2
Tab = 1
TabsPerRow = 4
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "调出单位(&O)"
TabPicture(0) = "frmInOutNotePad.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "txtOutNote"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "fmeOut"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "调入单位(&I)"
TabPicture(1) = "frmInOutNotePad.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "lblInTitle"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "txtInNote"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "fmeIn"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).ControlCount= 3
Begin VB.Frame fmeIn
Caption = "记事簿"
Height = 1065
Left = 270
TabIndex = 11
Top = 420
Width = 4815
Begin VB.Label lblTitle
Caption = "名称："
Height = 255
Index = 3
Left = 180
TabIndex = 17
Top = 690
Width = 645
End
Begin VB.Label lblTitle
Caption = "编号："
Height = 255
Index = 2
Left = 180
TabIndex = 16
Top = 300
Width = 615
End
Begin VB.Label lblInput
Caption = "Label3"
Height = 255
Index = 0
Left = 840
TabIndex = 13
Top = 300
Width = 3945
End
Begin VB.Label lblInput
Caption = "Label4"
Height = 255
Index = 1
Left = 840
TabIndex = 12
Top = 690
Width = 3915
End
End
Begin VB.Frame fmeOut
Caption = "记事簿"
Height = 1065
Left = -74730
TabIndex = 8
Top = 420
Width = 4815
Begin VB.Label lblTitle
Caption = "名称："
Height = 255
Index = 1
Left = 180
TabIndex = 15
Top = 690
Width = 645
End
Begin VB.Label lblTitle
Caption = "编号："
Height = 255
Index = 0
Left = 180
TabIndex = 14
Top = 300
Width = 615
End
Begin VB.Label lblOut
Caption = "Label1"
Height = 255
Index = 0
Left = 840
TabIndex = 10
Top = 300
Width = 3825
End
Begin VB.Label lblOut
Caption = "Label2"
Height = 315
Index = 1
Left = 840
TabIndex = 9
Top = 690
Width = 3855
End
End
Begin VB.TextBox txtInNote
Appearance = 0 'Flat
Height = 1995
Left = 270
MultiLine = -1 'True
TabIndex = 5
Text = "frmInOutNotePad.frx":0038
Top = 1590
Width = 4815
End
Begin VB.TextBox txtOutNote
Appearance = 0 'Flat
Height = 1995
Left = -74730
MultiLine = -1 'True
TabIndex = 4
Text = "frmInOutNotePad.frx":003E
Top = 1590
Width = 4815
End
Begin VB.Label lblInTitle
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 7
Top = 600
Width = 855
End
Begin VB.Label Label2
Caption = "Label1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1200
TabIndex = 6
Top = -1200
Width = 735
End
End
End
Attribute VB_Name = "frmInOutNotePad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 记事簿
' 作者：郑权
' 日期：1998.07.03
'
' 功能：提供界面用来输入备注
'
' 接口： editCard 调用记事簿并返回已输入的备注值。
' 参数：strTeamName 调用记事簿的对象的名称，strCode 备注针对的编码，
' strName 备注针对的名称，strNote 原来的备注值
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mstrReturn As String
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mstrOutCode As String '调出单位编码
Private mstrOutName As String '调出单位名称
Private mstrOutNote As String '调出单位备注
Private mstrInCode As String '调入单位编码
Private mstrInName As String '调入单位名称
Private mstrInNote As String '调入单位备注
Public blnCancel As Boolean
Private Sub cmdOKOrCancel_Click(Index As Integer)
Select Case Index
Case 0
setRecord
Unload Me
Case 1
blnCancel = True
Unload Me
Case 2
If sstInOuT.Tab = 0 Then
frmMemo.AddCard txtOutNote.Text, vbModal
Else
frmMemo.AddCard txtInNote.Text, vbModal
End If
'备忘录
Case 3
'打印
End Select
End Sub
Private Sub Form_Activate()
SetHelpID C2lng(Me.HelpContextID)
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then Unload Me
End Sub
Private Sub Form_Load()
Me.HelpContextID = 10011
Set mclsMainControl = gclsSys.MainControls.Add(Me)
blnCancel = False
End Sub
Private Sub setRecord()
mstrOutCode = lblOut(0).Caption
mstrOutName = lblOut(1).Caption
mstrOutNote = txtOutNote.Text
mstrInCode = lblInput(0).Caption
mstrInName = lblInput(1).Caption
mstrInNote = txtInNote.Text
End Sub
Private Sub Form_Paint()
' FrameBox sstInOuT.hWnd, 210, 180, 4095, 1365 '画frame边框
' PaintRectangles sstInOuT.hWnd, 240, 2400, 5055, 4935
End Sub
'Private Sub PaintRectangles(ByVal hWnd, X1, Y1, X2, Y2 As Long)
' Dim hDc As Long
' Dim hPen1 As Long, hPen2 As Long, hSavePen As Long
' Dim Point As POINTAPI
'
' hDc = GetDC(hWnd)
'
' X1 = X1 / Screen.TwipsPerPixelX
' X2 = X2 / Screen.TwipsPerPixelX
' Y1 = Y1 / Screen.TwipsPerPixelY
' Y2 = Y2 / Screen.TwipsPerPixelY
'
' hPen2 = CreatePen(PS_SOLID, 4, &H707070)
' hSavePen = SelectObject(hDc, hPen2)
' Rectangle hDc, X1 + 4, Y1 + 4, X2, Y2
'
' hPen1 = CreatePen(PS_SOLID, 1, vbBlack)
' hSavePen = SelectObject(hDc, hPen1)
' Rectangle hDc, X1 - 1, Y1 - 1, X2 - 2, Y2 - 2
'
' SelectObject hDc, hSavePen
' DeleteObject hPen1
' DeleteObject hPen2
'
' ReleaseDC hWnd, hDc
'End Sub
Public Sub EditCard(ByRef strOutCode As String, ByRef strOutName As String _
, ByRef strOutNote As String, ByRef strInCode As String _
, ByRef strInName As String, ByRef strInNote As String)
mstrOutCode = strOutCode
mstrOutName = strOutName
mstrOutNote = strOutNote
mstrInCode = strInCode
mstrInName = strInName
mstrInNote = strInNote
If sstInOuT.Tab <> 0 Then
sstInOuT.Tab = 0
Else
sstInOuT_Click 0
End If
Me.Show vbModal
strOutCode = mstrOutCode
strOutName = mstrOutName
strOutNote = mstrOutNote
strInCode = mstrInCode
strInName = mstrInName
strInNote = mstrInNote
End Sub
Private Sub Form_Unload(Cancel As Integer)
gclsSys.CurrFormName = ""
gclsSys.MainControls.Remove Me
Set mclsMainControl = Nothing
End Sub
Private Sub sstInOuT_Click(PreviousTab As Integer)
If sstInOuT.Tab = 0 Then
lblOut(0).Caption = mstrOutCode
lblOut(1).Caption = mstrOutName
txtOutNote.Text = mstrOutNote
Else
lblInput(0).Caption = mstrInCode
lblInput(1).Caption = mstrInName
txtInNote.Text = mstrInNote
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -