【VB开源代码栏目提醒】:网学会员为广大网友收集整理了,frmComments.frm,希望对大家有所帮助!
VERSION 5.00
Begin VB.Form frmComments
BorderStyle = 5 'Sizable ToolWindow
Caption = "说明"
ClientHeight = 1275
ClientLeft = 60
ClientTop = 285
ClientWidth = 2775
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 85
ScaleMode = 3 'Pixel
ScaleWidth = 185
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin Thumb_DB.ucGraphicButton btnUpdateComments
Height = 180
Left = 30
ToolTipText = "Update comments"
Top = 1050
Width = 240
_ExtentX = 423
_ExtentY = 318
End
Begin VB.TextBox txtComments
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 975
HideSelection = 0 'False
Left = 15
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
TabStop = 0 'False
Top = 15
Width = 2760
End
End
Attribute VB_Name = "frmComments"
Attribute
VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub btnUpdateComments_Click()
With frmMain.DataPictures
If (ThumbIsSelected) Then
.Recordset.Edit
.Recordset("Comments") = txtComments
.Recordset.Update
'-- Refresh FullGrid comments cell
With frmMain
If (.chkFullGrid) Then
.FullGrid.TextMatrix(.FullGrid.Row, 1) = txtComments
End If
End With
End If
End With
End Sub
Private Sub Form_Click()
Me.Hide
frmMain.chkComments = 0
frmFull.opFull(19).Caption = "Show &comments"
End Sub
Private Sub Form_Resize()
If (Me.Height > 60 * Screen.TwipsPerPixelY) Then
txtComments.Height = Me.ScaleHeight - 20
btnUpdateComments.Visible = True
btnUpdateComments.Top = txtComments.Top + txtComments.Height + 5
Else
btnUpdateComments.Visible = False
End If
txtComments.Width = Me.ScaleWidth - 2
End Sub
Private Sub Form_Paint()
Cls
DrawBar Me, Me.ScaleHeight - 16
End Sub