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  '窗口缺省
   Begin Thumb_DB.ucGraphicButton btnUpdateComments 
      Height          =   180
      Left            =   30
      ToolTipText     =   "更新说明"
      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
            '-- 更新数据库中的图片说明文本为txtComments文本框中的内容
            .Recordset("Comments") = txtComments
             '-- 更新数据库
            .Recordset.Update
             
            '-- 重新设置图片说明文本
            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 = "显示说明"
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