锐客网

  1. 首页 > 睿知 > it技术 > >

包含vb.net曲线显示不完的词条( 二 )

IT技术数据


'初始化GDI+
Dim uInput As GdiplusStartupInput
uInput.GdiplusVersion = 1
If GdiplusStartup(TOKEN, uInput)Ok Then
'初始化错误
MsgBox "GDI+ 初始化错误 。程序即将关闭 。", vbCritical, "InitError"
End
End If
GdipCreateFromHDC Me.hDC, Graphics'创建画板
GdipSetSmoothingMode Graphics, SmoothingModeAntiAlias'设置为反锯齿
End SubPrivate Sub TerminateGDIPlus()
GdipDeleteGraphics Graphics '释放graphics占用的内存
GdiplusShutdown TOKEN '关闭GDI+
End SubPrivate Sub Form_Load()
InitGDIPlus '初始化End SubPrivate Sub Command1_Click()Dim path As Long
Dim m(3) As POINTF '以下是坐标，你可以自由改变
m(0).x = 0
m(0).y = 0
m(1).x = 10
m(1).y = 100
m(2).x = 20
m(2).y = 3
m(3).x = 500
m(3).y = 100
Dim pen As Long
GdipCreatePen1 HFF000000, 2, UnitPixel, pen '创建画笔，用来画出样条
GdipCreatePath FillModeAlternate, path '创建path
GdipAddPathBeziers path, m(0), 4 '创建样条'Count是说坐标的个数，points只能传递数组的第一个元素，不能传递数组 。
GdipDrawPath Graphics, pen, path '画出样条
GdipDeletePen pen '删除画笔
GdipDeletePath path '删除样条End SubPrivate Sub Form_Unload(Cancel As Integer)
TerminateGDIPlus '删除GDI+
End Sub
vb.net 自定义控件(Panel)中添加控件无法显示如何解决vb.net曲线显示不完我弄很正常vb.net曲线显示不完，有没有调用show显示它?。?我想你没那么傻 。把完整代码贴出来看看vb.net曲线显示不完了 。
Public Class myPanel
Inherits System.Windows.Forms.Panel
Dim flb As FlashLabel
Sub New()
flb = New FlashLabel
flb.Text = "正常吗vb.net曲线显示不完？"
flb.Parent = Me
'Me.Controls.Add(flb)
flb.Show()
End Sub
End Class
关于vb.net曲线显示不完和的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：androidhtml5小游戏，android简单小游戏程序

下一篇：怎么修改ip路由器密码，如何修改路由ip