frmcomments.frm

几个不错的VB例子

VERSION 5.00
Begin VB.Form frmComments 
   AutoRedraw      =   -1  'True
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Comments"
   ClientHeight    =   1275
   ClientLeft      =   60
   ClientTop       =   285
   ClientWidth     =   2775
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   6.75
      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
' ==================
'    Thumb DB 1.5
' ==================
' Carles P.V. - 2001
' [e-mail]
' ==================

Option Explicit





Private Sub btnUpdateComments_Click()

    With frmMain.DataPictures
    
        If Not ThumbIsSelected Then Exit Sub
        .Recordset.Edit
        .Recordset("Comments") = txtComments
        .Recordset.Update
        
    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()
    
    Me.Cls
    
    If Me.Height > 900 Then
    
        DrawBar Me, Me.ScaleHeight - 16
        
        txtComments.Height = Me.ScaleHeight - 20
        btnUpdateComments.Visible = True
        
        btnUpdateComments.Top = txtComments.Top + txtComments.Height + 5
    
    Else
    
        txtComments.Height = Me.ScaleHeight - 2
        btnUpdateComments.Visible = False
    
    End If
    
    txtComments.Width = Me.ScaleWidth - 2

End Sub