首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请问:有没有VB的Picture Box的功能扩展控件

2011-12-26 
请教:有没有VB的Picture Box的功能扩展控件VB的PictureBox控件功能太差,线型太少,没有粗虚线型、线的端头样

请教:有没有VB的Picture Box的功能扩展控件
VB的Picture   Box控件功能太差,线型太少,没有粗虚线型、线的端头样式不能改变,任意区域的填充及填充样式都没有。
      想问有没有VB的Picture   Box的功能扩展控件。

[解决办法]
你可以自己编写一个,或者上网去搜索下第三方控件~~~
[解决办法]
可用GDI来扩充。
[解决办法]
引用DirectX,自己编一个控件
[解决办法]
你不会自己画啊? 什么线都是用点组成的.或都可以用线组合成新的线
[解决办法]
你找一下 Memory DC 的类,有很多现成的。
[解决办法]
gdi+就很好呀,vb6中这样用
Public Declare Function GdiplusStartup Lib "gdiplus.dll " _
(token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus
Public Declare Sub GdiplusShutdown Lib "gdiplus.dll " _
(ByVal token As Long)
'----------------GDI+-------------------
Public GpInput As GdiplusStartupInput
Public token As Long ' Needed to close GDI+
' NOTE: Enums evaluate to a Long
Public Enum GpStatus ' aka Status
Ok = 0
GenericError = 1
InvalidParameter = 2
OutOfMemory = 3
ObjectBusy = 4
InsufficientBuffer = 5
NotImplemented = 6
Win32Error = 7
WrongState = 8
Aborted = 9
FileNotFound = 10
ValueOverflow = 11
AccessDenied = 12
UnknownImageFormat = 13
FontFamilyNotFound = 14
FontStyleNotFound = 15
NotTrueTypeFont = 16
UnsupportedGdiplusVersion = 17
GdiplusNotInitialized = 18
PropertyNotFound = 19
PropertyNotSupported = 20
End Enum

Private Sub Form_Load()
'gdi+初始化
GpInput.GdiplusVersion = 1
If GdiplusStartup(token, GpInput) <> Ok Then
MsgBox "初始化GDI+错误! " & Chr(13) & "gdiplus.dll出现故障! ", vbCritical, "程序启动失败 "
Unload Me
Exit Sub
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call GdipClose
End Sub
Public Sub GdipClose()
Call GdiplusShutdown(token)
End Sub

gdiplus.dll可以从QQ的文件夹中找到,网上有专门的gdi+处理图形图片的vb模块文件。
[解决办法]
不需要特殊的东西
在网上有gdi画图的教程,你看看就好了
[解决办法]
留个Email,我发个现成的给你。

热点排行