Private Sub Form_Load()
CommonDialog1.InitDir = "c:\"
CommonDialog1.Flags = cdlCCRGBInit + cdlCFEffects
CommonDialog1.FontName = "华文彩云"
lblTitle.FontName = "华文彩云"
lblTitle.FontSize = 18
lblTitle.ForeColor = QBColor(5)
lblTitle.Caption = "姹紫嫣红 争奇斗艳"
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
Pic1.Top = (Me.ScaleHeight - Pic1.Height) / 2
Pic1.Left = (Me.ScaleWidth - Pic1.Width) / 2
Img1.Top = (Pic1.ScaleHeight - Img1.Height) / 2
Img1.Left = (Pic1.Width - Img1.Width) / 2
End Sub
Private Sub cmdBack_Click()
CommonDialog1.ShowColor
Pic1.BackColor = CommonDialog1.Color
End Sub
Private Sub cmdFont_Click()
CommonDialog1.ShowFont
lblTitle.FontName = CommonDialog1.FontName
lblTitle.FontSize = CommonDialog1.FontSize
lblTitle.ForeColor = CommonDialog1.Color
End Sub
Private Sub cmdPic_Click()
CommonDialog1.CancelError = True
On Error GoTo Cancel
CommonDialog1.DialogTitle = "选择图片"
CommonDialog1.Filter = "位图|*.bmp|
JPG图片|*.jpg|
GIF图片|*.gif|
图标|*.ico;cur|所有文件|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Img1.Picture = LoadPicture(CommonDialog1.FileName)
CommonDialog1.InitDir = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(CommonDialog1.Name) - 1)
Cancel:
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。