module1.bas

通过串口收发短信工具

Attribute VB_Name = "Module1"
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub SkinSet(frmAform As Form, Optional strCaption As String)
    Dim strTmp As String
    strTmp = Mid(frmAform.Name, 4, Len(frmAform.Caption) + 1)
    If strCaption = "" Then
        frmAform.lblCaption.Caption = strTmp
        frmAform.lblCaption1.Caption = strTmp
        frmAform.Caption = strTmp
    Else
        frmAform.lblCaption.Caption = strCaption
        frmAform.lblCaption1.Caption = strCaption
        frmAform.Caption = strCaption
    End If
    ''''''''
    frmAform.imgCaptionBar.Picture = FrmTmp.imgCaptionBar.Picture
    frmAform.imgTL.Picture = FrmTmp.imgTL.Picture
    frmAform.imgTR.Picture = FrmTmp.imgTR.Picture
    frmAform.imgL.Picture = FrmTmp.imgL.Picture
    frmAform.imgR.Picture = FrmTmp.imgR.Picture
    frmAform.imgBL.Picture = FrmTmp.imgBL.Picture
    frmAform.imgBR.Picture = FrmTmp.imgBR.Picture
    frmAform.imgB.Picture = FrmTmp.imgB.Picture
    frmAform.imgBtnMin.Picture = FrmTmp.imgMin.Picture
    frmAform.imgBtnClose.Picture = FrmTmp.imgClose.Picture
    '''''''''''''

    frmAform.lblCaption.Move 0 + (frmAform.Width - frmAform.lblCaption.Width) / 2, 130

    frmAform.lblCaption1.Move 0 + (frmAform.Width - frmAform.lblCaption.Width) / 2 + 19, 130 + 19

    frmAform.imgTL.Move 0, 0
    frmAform.imgCaptionBar.Move frmAform.imgTL.Width, 0, frmAform.ScaleWidth - frmAform.imgTL.Width - frmAform.imgTR.Width
    frmAform.imgTR.Move frmAform.ScaleWidth - frmAform.imgTR.Width, 0
    frmAform.imgL.Move 0, frmAform.imgTL.Height, frmAform.imgL.Width, frmAform.ScaleHeight - frmAform.imgTL.Height - frmAform.imgBL.Height
    frmAform.imgBL.Move 0, frmAform.ScaleHeight - frmAform.imgBL.Height
    frmAform.imgB.Move frmAform.imgBL.Width, frmAform.ScaleHeight - frmAform.imgB.Height, frmAform.ScaleWidth - frmAform.imgBL.Width - frmAform.imgBR.Width
    frmAform.imgBR.Move frmAform.ScaleWidth - frmAform.imgBR.Width, frmAform.ScaleHeight - frmAform.imgBR.Height
    frmAform.imgR.Move frmAform.ScaleWidth - frmAform.imgR.Width, frmAform.imgTR.Height, frmAform.imgR.Width, frmAform.ScaleHeight - frmAform.imgTR.Height - frmAform.imgBR.Height
    frmAform.imgBtnClose.Move frmAform.ScaleWidth - frmAform.imgBtnClose.Width - 180, 80
    frmAform.imgBtnMin.Move frmAform.imgBtnClose.Left - frmAform.imgBtnMin.Width - 40, 80
    ''''''''''''''''
    frmAform.BackColor = &HE0E0E0
    ''''''

End Sub