一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

需要一個圖片瀏覽器的vb代碼,要求能從電腦中選擇圖片,能改變圖片背景,能改變說明性文字的字體

 hdzgx 2017-10-11
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|圖標(biāo)|*.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

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    成人午夜视频在线播放| 日本在线视频播放91| 精品女同一区二区三区| 成人免费高清在线一区二区| 日韩精品中文在线观看| 国产日韩熟女中文字幕| 精产国品一二三区麻豆| 成年男女午夜久久久精品| 男人大臿蕉香蕉大视频| 五月婷婷亚洲综合一区| 精品伊人久久大香线蕉综合| 国产精品一区二区成人在线| 亚洲国产精品久久综合网| 国产小青蛙全集免费看| 丰满人妻一二区二区三区av| 日韩不卡一区二区视频| 九九九热在线免费视频| 日韩精品一区二区三区射精| 国产精品免费精品一区二区| 亚洲中文字幕视频一区二区| 亚洲一区二区精品免费| 亚洲欧美国产网爆精品| 亚洲香艳网久久五月婷婷| 国产成人午夜福利片片| 嫩呦国产一区二区三区av| 国产精品超碰在线观看| 国产日韩欧美专区一区| 国产亚洲中文日韩欧美综合网 | 日本精品视频一二三区| 亚洲欧美黑人一区二区| 亚洲人午夜精品射精日韩| 亚洲精品日韩欧美精品| 亚洲国产av国产av| 午夜精品在线视频一区| 日本午夜精品视频在线观看| 日本不卡在线视频中文国产| 欧美一二三区高清不卡| 欧美日韩欧美国产另类| 日韩一区二区三区嘿嘿| 久久永久免费一区二区| 国产精品免费精品一区二区|

    AI助手

    阅读时有疑惑?点击向AI助手提问吧

    联系客服

    微信扫码,添加客服企业微信

    客服QQ:

    1732698931

    联系电话:4000-999-276

    客服工作时间9:00-18:00,晚上非工作时间,请在微信或QQ留言,第二天客服上班后会立即联系您。