熱心網(wǎng)友

VB6。0中使用函數(shù)功能,可實(shí)現(xiàn)在vb的picture圖中寫文字,且字號(hào)及字體顏色可按要求改變,代碼如下:Option ExplicitDim xx, yy As IntegerDim fnt As LongDim txt As StringDim colvb As StringDim wp As VariantPublic Function xp(colvb As Variant, xx As Variant, yy As Variant, fnt As Variant, txt As Variant)Picture1。ForeColor = colvb 'QBColor(14)Picture1。CurrentX = xxPicture1。CurrentY = yyPicture1。FontSize = fntPicture1。Print txt 'End FunctionPrivate Sub Form_Load()Picture1。AutoRedraw = Truexx = 500yy = 500fnt = 24colvb = vbRedtxt = "這是VB對(duì)PICTURE圖片框的圖片上寫字的演示"wp = xp(colvb, xx, yy, fnt, txt)xx = 500yy = 2500fnt = 48colvb = vbGreentxt = "字號(hào)調(diào)大的演示"wp = xp(colvb, xx, yy, fnt, txt)End Sub下附壓縮的工程文件。

熱心網(wǎng)友

picture1.print "這不是就寫出來了么"

熱心網(wǎng)友

寫文字？拖個(gè)標(biāo)簽框或者一個(gè)文本框都可以實(shí)現(xiàn)啊