请教：有没有VB的Picture Box的功能扩展控件

Question

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

Answer 1

本人不才，不会自己编写控件，也不会用GDI来扩充，怎么办？

Answer 2

fj182(阿花)：
    怎样用GDI来编程呢？能否说明以下，或举个例子，多谢，给加分。

Answer 3

就是因为不会，才在这里寻求现成的VB6的Picture Box的功能扩展控件.GDI+编程又是怎样的？VB6可以用GDI+编程吗？

Answer 4

你找一下 Memory DC 的类，有很多现成的。

Answer 5

fj182(阿花)：
   没有搜索到所谓的 Memory DC 的类

Answer 6

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 EnumPrivate 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 SubPrivate Sub Form_Unload(Cancel As Integer)
    Call GdipClose
End Sub
Public Sub GdipClose()
    Call GdiplusShutdown(token)
End Subgdiplus.dll可以从QQ的文件夹中找到，网上有专门的gdi＋处理图形图片的vb模块文件。

Answer 7

jwh2004：
    要在vb6中使用gdi＋  ，例如在新建工程1-Form1中使用gdi＋，需要做那些安装或设置工作。

Answer 8

不需要特殊的东西
在网上有gdi画图的教程，你看看就好了

Answer 9

请提供“网上有gdi画图的教程”的网址，谢谢。

Answer 10

留个Email，我发个现成的给你。