msgform.frm

山西旅游酒店预定商务软件

VERSION 5.00
Begin VB.Form MsgForm 
   BorderStyle     =   0  'None
   ClientHeight    =   2115
   ClientLeft      =   3765
   ClientTop       =   1935
   ClientWidth     =   4545
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   2115
   ScaleWidth      =   4545
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picOptions 
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Index           =   0
      Left            =   600
      ScaleHeight     =   20
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   64
      TabIndex        =   2
      Top             =   1680
      Width           =   960
   End
   Begin VB.PictureBox picIcon 
      AutoRedraw      =   -1  'True
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   75
      ScaleHeight     =   435
      ScaleWidth      =   495
      TabIndex        =   1
      Top             =   165
      Width           =   555
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "欢迎使用卓阳软件帮助系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   720
      TabIndex        =   3
      Top             =   240
      Width           =   3600
   End
   Begin VB.Label msgText 
      BackStyle       =   0  'Transparent
      Caption         =   $"MsgForm.frx":0000
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   945
      Left            =   1035
      TabIndex        =   0
      Top             =   630
      Width           =   3270
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "MsgForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Option Explicit
 

Private BkColor As Variant
Private FrColor As Variant
Private CurIcon As Long
Private ButnTxt() As String
Private LastBtnUp As Integer


Public Sub A_SetBackColor(sBackColor As OLE_COLOR)
BkColor = sBackColor
End Sub

Public Sub A_SendResultsTo(f As Form)
frmAssist.ReturnTo f
End Sub

Public Sub A_Initialize()
Dim xCount As Integer
 
For xCount = 0 To picOptions.Count - 1
picOptions(xCount).BackColor = BkColor
picOptions(xCount).ForeColor = msgText.ForeColor
picOptions(xCount).FontName = msgText.FontName
picOptions(xCount).ForeColor = msgText.ForeColor
rg.Draw3dUp picOptions(xCount), ButnTxt(xCount)
Next
DoEvents
Me.Refresh

End Sub

Private Sub Form_Deactivate()
Me.Hide
 
 
End Sub

Private Sub Form_Load()
 
     
    
    Me.BackColor = BkColor
    Label1.BackColor = BkColor
    Me.Refresh
    picIcon.BackColor = BkColor
    picIcon.Refresh
    picIcon.BorderStyle = 0
    
    
    Dim lRet As Long
    Dim dl As Long
    Dim MeWidth As Long
    Dim MeHeight As Long
    
    MeWidth = Me.Width / Screen.TwipsPerPixelX
    MeHeight = Me.Height / Screen.TwipsPerPixelY
    
    'Create Form with Rounded Corners
    lRet = CreateRoundRectRgn(0, 0, MeWidth, MeHeight, 20, 20)
    
    dl = SetWindowRgn(Me.hwnd, lRet, True)

 
  
 
End Sub

Private Sub Form_LostFocus()
Me.Hide

End Sub

 


Private Sub Form_Unload(Cancel As Integer)
Unload MsgForm

End Sub

Private Sub picOptions_MouseDown(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
rg.Draw3dDown picOptions(index), ButnTxt(index)
 
End Sub

Private Sub picOptions_MouseUp(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
rg.Draw3dUp picOptions(index), ButnTxt(index)
Me.Hide
Me.Hide
DoEvents

frmAssist.MsgResults index
Unload frmAssist
 
End Sub

 

Public Property Let A_MsgText(ByVal vNewValue As String)
msgText = vNewValue
End Property

Public Property Let A_SystemIcon(vNewValue As SystemIcons)
Call rg.picGetSysMsgBoxIcon(picIcon, vNewValue)
End Property



 
 
Public Sub A_AddButton(BtnIndex As Integer, BtnText As String)
 If BtnIndex = 0 Then
 ReDim ButnTxt(0)
 ButnTxt(0) = BtnText
  
 Else
     ReDim Preserve ButnTxt(UBound(ButnTxt) + 1)
     ButnTxt(UBound(ButnTxt)) = BtnText
     Load picOptions(BtnIndex)
     picOptions(BtnIndex).Left = picOptions(BtnIndex - 1).Left + picOptions(BtnIndex - 1).Width + 60
     picOptions(BtnIndex).Top = picOptions(BtnIndex - 1).Top
     picOptions(BtnIndex).Visible = True
      
     
 End If
End Sub