vb.net中怎样向pictruebox控件上写汉字

问题描述

PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLongPrivateDeclareFunctionTextOutLib"gdi32"Alias"TextOutA"(ByValhDCAsLong,ByValXAsLong,ByValYAsLong,ByVallpStringAsString,ByValnCountAsLong)AsLongPrivateSubCmdUpText_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)HandlesCmdUpText.ClickDimShowTextAsObjectPicBox.Font=VB6.FontChangeName(PicBox.Font,"System")PicBox.Font=VB6.FontChangeBold(PicBox.Font,False)PicBox.Font=VB6.FontChangeSize(PicBox.Font,Val(FontSet.Text))IfPicBox.Font.SizeInPoints=24ThenPicBox.Font=VB6.FontChangeBold(PicBox.Font,True)ShowText=TextOut(GetDC(Me.Handle.ToInt64),0,TextY,TxtBox.Text&Space(30),2*Len(TxtBox.Text))Application.DoEvents()TextY=TextY+Val(FontSet.Text)*1.5EndSub怎么写不上汉字请教大神帮忙

解决方案

本帖最后由 ma0808sun 于 2015-04-19 14:32:33 编辑
解决方案二：
没有人么，紧急
解决方案三：

解决方案四：
vb6是哪个命名空间？执行不了还是什么别的问题？
解决方案五：
https://msdn.microsoft.com/zh-cn/library/76c5db29.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
解决方案六：
Graphics.DrawString方法(String,Font,Brush,PointF)
解决方案七：
PictureBox不接受的都是图片么？你这个问题不就是如何画Image，并且在上面如何写入汉字么DrawString