PureBasic Super Designer转换VB6代码到PureBasic的代码，并实现在VB下设计PureBasic窗体！

PureBasic Super Designer
2006年7月6号
正式发布，支持VB中的大部分控件的转换，工具栏、选项卡、状态栏等控件由于技术
原因目前无法支持，状态栏仅在PBSDGadgets.ocx中提供了微弱的支持，具体内容需
要您手动编写代码。由于Picture属性使用插件读取时无法转换类型，因此目前不能
支持Image等带有Picture属性的控件。您只能使用PBSDGadgets.ocx提供的相关控件
同时我们支持多语言的支持。把你翻译好的语言Chinese.catalog放在与PBSD.dll相
同位置，然后在程序中选择你的语言类别重新启动开发环境。
未注册用户只能生成一个窗口。超过的窗口将不能生成。如果需要注册，请访问这里
http://www.purebasic.cn/pbsd/reg.htm 如果要访问更新内容请访问我们的支持站点
http://www.purebasic.cn/pbsd,同时您可以在这里下载新版本。 
我们在页面下方提供免费在线注册机。注册后方可设计生成多个窗口。
详细情况请点这里
http://forum.purebasic.cn/viewtopic.php?t=27

解决方案 »

  1.   

    ;PureBasic Super DesignerV1.0.18  http://www.purebasic.cn http://www.mysticboy.com.cn [email protected] [email protected]
    ;{ PBSDGadgets_TEST
    ;-窗体常量
    Enumeration
      #Form1
      #Form2
      #Form3
    EndEnumeration;-菜单栏常量
    Enumeration
        #MenuBar_Form1
        #MenuBar_Form2
        #MenuBar_Form3
    EndEnumerationEnumeration
        ;-Form1的菜单项
        ;-Form2的菜单项
        ;-Form3的菜单项
    EndEnumeration    ;- 控件常量
    Enumeration
        ;-Form1的配件常量
        #Form1_EditorGadget1
        #Form1_ContainerGadget1
        #Form1_HyperLinkGadget1
        #Form1_ScrollBarGadget1
        #Form1_IPAddressGadget1
        #Form1_ImageGadget1
        #Form1_WebGadget1
        #Form1_TrackBarGadget1
        #Form1_ProgressBarGadget1
        #Form1_SpinGadget1
        #Form1_ComboBoxGadget1
        #Form1_ListIconGadget1
        #Form1_ListViewGadget1
        #Form1_TreeGadget1
        #Form1_FrameGadget1
        #Form1_OptionGadget1
        #Form1_TextGadget1
        #Form1_StringGadget1
        #Form1_CheckBoxGadget1
        #Form1_ButtonGadget1
        #Form1_ButtonImageGadget1
        #Form1_StatusBarGadget1
        ;-Form2的配件常量
        #Form2_ListIconGadget1
        #Form2_ListView1
        #Form2_TreeGadget1
        #Form2_Text2
        #Form2_EditorGadget1
        #Form2_ProgressBarGadget1
        #Form2_ProgressBar1
        #Form2_TrackBarGadget1
        #Form2_Slider1
        #Form2_ScrollBarGadget1
        #Form2_HScroll1
        #Form2_ListViewGadget1
        #Form2_List1
        #Form2_ComboBoxGadget1
        #Form2_Combo1
        #Form2_Option1
        #Form2_OptionGadget1
        #Form2_Check1
        #Form2_CheckBoxGadget1
        #Form2_ButtonGadget1
        #Form2_Command1
        #Form2_FrameGadget1
        #Form2_Label212
        #Form2_Frame1
        #Form2_StringGadget1
        #Form2_Text1
        #Form2_TextGadget1
        #Form2_Picture1
        #Form2_ContainerGadget1
        #Form2_TreeView1
        #Form2_UpDown1
        #Form2_SpinGadget1
        #Form2_Label215
        #Form2_Label214
        #Form2_Label213
        #Form2_Label211
        #Form2_Label210
        #Form2_Label29
        #Form2_Label28
        #Form2_Label27
        #Form2_Label26
        #Form2_Label25
        #Form2_Label24
        #Form2_Label23
        #Form2_Label22
        #Form2_Label21
        #Form2_Label2
        #Form2_Label1
        ;-Form3的配件常量
        #Form3_SpinGadget1
        #Form3_UpDown1
        #Form3_WebBrowser1
        #Form3_Slider1
        #Form3_ProgressBar1
        #Form3_TreeView1
        #Form3_ListView1
        #Form3_VScroll1
        #Form3_HScroll1
        #Form3_List1
        #Form3_Combo1
        #Form3_Option1
        #Form3_Check1
        #Form3_Command1
        #Form3_Frame1
        #Form3_Text1
        #Form3_Picture1
        #Form3_Label2
        #Form3_Label1
    EndEnumeration
    ;- Image Plugins
    UseJPEGImageDecoder()
    UsePNGImageDecoder()
    ;- Image Globals
    Global Image_Form1_ImageGadget1
    Global Image_Form1_ButtonImageGadget1;- Catch Images
    Image_Form1_ImageGadget1= CatchImage(0, ?Image_Form1_ImageGadget1)
    Image_Form1_ButtonImageGadget1= CatchImage(1, ?Image_Form1_ButtonImageGadget1)
    ;- Images
    DataSection
    Image_Form1_ImageGadget1:
         IncludeBinary "Image_Form1_ImageGadget1.bmp"
    Image_Form1_ButtonImageGadget1:
         IncludeBinary "Image_Form1_ButtonImageGadget1.bmp"
    EndDataSection
    ;这里你需要注意，以上图片是和代码一个位置。请自己添加两个图片。
    贴出的代码安装后开始菜单里可以打开看。
      

  2.   


    Procedure BalloonTip(WindowID, Gadget, Text$, Title$, Icon)ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID,0,GetModuleHandle_(0),0)
      SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
      SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
      SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
      Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
      Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
      Balloon\hWnd=GadgetID(Gadget)
      Balloon\uId=GadgetID(Gadget)
      Balloon\lpszText=@Text$
      SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
      If Title$ > ""
        SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
      EndIfEndProcedureProcedure Open_Form1()
      If OpenWindow(#Form1,0,0,734,444,"Form1", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar)
        If CreateMenu(#MenuBar_Form1,WindowID(#Form1))
        EndIf;#MenuBar_Form1    If CreateGadgetList(WindowID(#Form1))
        EditorGadget(#Form1_EditorGadget1,364,288,175,83)
        SetGadgetText(#Form1_EditorGadget1,"EditorGadget")
      ;{#Form1_ContainerGadget1
        ContainerGadget(#Form1_ContainerGadget1,541,348,162,26,#PB_Container_Double)
      CloseGadgetList()
    ;}#Form1_ContainerGadget1
      HyperLinkGadget(#Form1_HyperLinkGadget1,553,322,158,19,"http://www.purebasic.cn",RGB(0,0,255), #PB_HyperLink_Underline)
      ScrollBarGadget(#Form1_ScrollBarGadget1,549,295,154,22,0,32767,0)
      IPAddressGadget(#Form1_IPAddressGadget1,550,276,146,19)
      SetGadgetState(#Form1_IPAddressGadget1, MakeIPAddress(192, 168, 1, 21))
      ImageGadget(#Form1_ImageGadget1,549,27,146,231,Image_Form1_ImageGadget1)
      WebGadget(#Form1_WebGadget1,363,203,174,75,"http://purebasic.cn")
      TrackBarGadget(#Form1_TrackBarGadget1,168,356,178,24,0,10)
      ProgressBarGadget(#Form1_ProgressBarGadget1,171,330,175,21,0,100)
      SpinGadget(#Form1_SpinGadget1,171,302,170,22,0,0,#PB_Spin_Numeric)
      ComboBoxGadget(#Form1_ComboBoxGadget1,173,263,164,20)
      ListIconGadget(#Form1_ListIconGadget1,15,264,143,112,"ListIconGadget1",100,#PB_ListIcon_CheckBoxes)
      ListViewGadget(#Form1_ListViewGadget1,359,165,181,33)
      TreeGadget(#Form1_TreeGadget1,360,90,181,65)
    ;{#Form1_FrameGadget1
      Frame3DGadget(#Form1_FrameGadget1,358,23,177,60,"FrameGadget")
    ;}#Form1_FrameGadget1
      OptionGadget(#Form1_OptionGadget1,167,216,177,31,"OptionGadget")
      TextGadget(#Form1_TextGadget1,172,164,170,33,"TextGadget")
      StringGadget(#Form1_StringGadget1,176,118,156,31,"StringGadget")
      CheckBoxGadget(#Form1_CheckBoxGadget1,178,73,147,30,"CheckBoxGadget")
      ButtonGadget(#Form1_ButtonGadget1,173,24,147,33,"ButtonGadget")
      ButtonImageGadget(#Form1_ButtonImageGadget1,12,26,143,219,Image_Form1_ButtonImageGadget1)
      ;{ #Form1_StatusBarGadget1
      If CreateStatusBar(#Form1_StatusBarGadget1, WindowID(#Form1))
         ;
      EndIf
    ;} #Form1_StatusBarGadget1
        EndIf  EndIf; Form1
    EndProcedureProcedure Open_Form2()
      If OpenWindow(#Form2,0,0,577,493,"Form2", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar)
        If CreateMenu(#MenuBar_Form2,WindowID(#Form2))
        EndIf;#MenuBar_Form2    If CreateGadgetList(WindowID(#Form2))
      ListIconGadget(#Form2_ListIconGadget1,126,363,107,74,"ListIconGadget1",100,#PB_ListIcon_CheckBoxes)
      ListIconGadget(#Form2_ListView1,18,367,96,71,"ListView1",100)
      TreeGadget(#Form2_TreeGadget1,420,328,122,74)
      StringGadget(#Form2_Text2,419,283,101,30,"Text2")
      EditorGadget(#Form2_EditorGadget1,280,275,105,29)
      SetGadgetText(#Form2_EditorGadget1,"EditorGadget")
      ProgressBarGadget(#Form2_ProgressBarGadget1,413,247,127,21,0,100)
      ProgressBarGadget(#Form2_ProgressBar1,277,248,111,16,0,100)
      TrackBarGadget(#Form2_TrackBarGadget1,272,206,116,21,0,10)
      TrackBarGadget(#Form2_Slider1,407,203,124,24,0,10,#PB_TrackBar_Ticks)
      ScrollBarGadget(#Form2_ScrollBarGadget1,265,167,125,23,0,32767,0)
      ScrollBarGadget(#Form2_HScroll1,399,166,131,24,0,32767,0)
      ListViewGadget(#Form2_ListViewGadget1,275,107,112,46)
      ListViewGadget(#Form2_List1,401,112,138,28)
      ComboBoxGadget(#Form2_ComboBoxGadget1,265,70,120,20)
      ComboBoxGadget(#Form2_Combo1,407,67,127,20)
      OptionGadget(#Form2_Option1,396,25,118,28,"Option1")
      OptionGadget(#Form2_OptionGadget1,259,27,109,26,"OptionGadget")
      CheckBoxGadget(#Form2_Check1,156,323,86,28,"Check1")
      CheckBoxGadget(#Form2_CheckBoxGadget1,25,328,106,18,"CheckBoxGadget")
      ButtonGadget(#Form2_ButtonGadget1,120,282,85,31,"ButtonGadget")
      ButtonGadget(#Form2_Command1,27,282,67,29,"Command1");{#Form2_FrameGadget1
      Frame3DGadget(#Form2_FrameGadget1,116,208,111,57,"FrameGadget")
            TextGadget(#Form2_Label2,0,0,40,18,"=")
    ;}#Form2_FrameGadget1;{#Form2_Frame1
      Frame3DGadget(#Form2_Frame1,24,204,71,65,"Frame1")
    ;}#Form2_Frame1
      StringGadget(#Form2_StringGadget1,20,158,81,27,"StringGadget")
      StringGadget(#Form2_Text1,111,150,130,38,"Text1")
      TextGadget(#Form2_TextGadget1,17,95,59,26,"TextGadget")
      ;{#Form2_Picture1
      ContainerGadget(#Form2_Picture1,102,28,135,47,#PB_Container_Single)
      CloseGadgetList()
    ;}#Form2_Picture1
      ;{#Form2_ContainerGadget1
      ContainerGadget(#Form2_ContainerGadget1,25,31,58,43,#PB_Container_Double)
      CloseGadgetList()
    ;}#Form2_ContainerGadget1
      TreeGadget(#Form2_TreeView1,264,329,135,67,#PB_Tree_AlwaysShowSelection | #PB_Tree_NoButtons)
      SpinGadget(#Form2_UpDown1,283,404,17,40,0,10,#PB_Spin_Numeric)
      SpinGadget(#Form2_SpinGadget1,330,410,47,31,0,0,#PB_Spin_Numeric)
      TextGadget(#Form2_Label215,115,391,40,18,"=")
      TextGadget(#Form2_Label214,138,329,40,18,"=")
      TextGadget(#Form2_Label213,403,347,40,18,"=")
      TextGadget(#Form2_Label211,97,290,40,18,"=")
      TextGadget(#Form2_Label210,391,287,40,18,"=")
      TextGadget(#Form2_Label29,393,248,40,18,"=")
      TextGadget(#Form2_Label28,389,206,40,18,"=")
      TextGadget(#Form2_Label27,98,228,40,18,"=")
      TextGadget(#Form2_Label26,99,163,40,18,"=")
      TextGadget(#Form2_Label25,390,119,40,18,"=")
      TextGadget(#Form2_Label24,389,70,40,18,"=")
      TextGadget(#Form2_Label23,377,32,40,18,"=")
      TextGadget(#Form2_Label22,86,99,40,18,"=")
      TextGadget(#Form2_Label21,88,44,40,18,"=")
      TextGadget(#Form2_Label2,306,417,40,18,"=")
      TextGadget(#Form2_Label1,120,96,110,30,"Label1")
        EndIf  EndIf; Form2
    EndProcedure
      

  3.   


    Procedure Open_Form3()
      If OpenWindow(#Form3,0,0,611,398,"Form3", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar)
        If CreateMenu(#MenuBar_Form3,WindowID(#Form3))
        EndIf;#MenuBar_Form3    If CreateGadgetList(WindowID(#Form3))
      SpinGadget(#Form3_SpinGadget1,291,262,47,56,0,0,#PB_Spin_Numeric)
      SpinGadget(#Form3_UpDown1,239,255,17,66,0,10,#PB_Spin_Numeric)
      WebGadget(#Form3_WebBrowser1,28,246,137,76,"about:blank")
      TrackBarGadget(#Form3_Slider1,417,177,153,20,0,10,#PB_TrackBar_Ticks)
      ProgressBarGadget(#Form3_ProgressBar1,414,144,120,15,0,100)
      TreeGadget(#Form3_TreeView1,282,136,110,91,#PB_Tree_AlwaysShowSelection | #PB_Tree_NoButtons)
      ListIconGadget(#Form3_ListView1,156,135,100,88,"ListView1",100)
      ScrollBarGadget(#Form3_VScroll1,57,132,28,83,0,32767,0,#PB_ScrollBar_Vertical)
      ScrollBarGadget(#Form3_HScroll1,19,167,119,21,0,32767,0)
      ListViewGadget(#Form3_List1,464,21,116,28)
      ComboBoxGadget(#Form3_Combo1,373,93,86,20)
      OptionGadget(#Form3_Option1,257,93,87,20,"Option1")
      CheckBoxGadget(#Form3_Check1,120,83,116,33,"Check1")
      ButtonGadget(#Form3_Command1,13,81,96,45,"Command1")
    ;{#Form3_Frame1
      Frame3DGadget(#Form3_Frame1,300,19,137,51,"Frame1")
    ;}#Form3_Frame1
      StringGadget(#Form3_Text1,203,17,85,54,"Text1")
      ;{#Form3_Picture1
      ContainerGadget(#Form3_Picture1,22,11,74,52,#PB_Container_Single)
      CloseGadgetList()
    ;}#Form3_Picture1
      TextGadget(#Form3_Label2,265,278,40,18,"=")
      TextGadget(#Form3_Label1,107,19,79,45,"Label1")
        EndIf  EndIf; Form3
    EndProcedure;}Open_Form1()
    Repeat ;开始事件循环
    Event = WaitWindowEvent() ;该行等待窗体发生一个事件。
    WindowID = EventWindow() ; 返回这个事件是哪个窗口的事件.
      GadgetID = EventGadget() ;返回是否为配件的事件，如果是返回配件ID！
    EventType = EventType() ;事件类型。
    ;在这里输入您的代码。用上面返回的结果来处理你想处理的事件。
    If Event = #PB_Event_Gadget
    ;
    EndIf
    Until Event = #PB_Event_CloseWindow ;结束事件循环
    End以上是自动生成的代码。
      

  4.   

    楼主辛苦了，不遗余力的推广PureBasic，希望该语言能得到应用。
      

  5.   


      偶写了VB6书籍，有经验也有不足，希望能对打算和VB6一起去死的朋友有所帮助。  关注偶的网站 www.mugua.net 书籍近日出版。
      

  6.   


    楼主辛苦了，不遗余力的推广PureBasic，希望该语言能得到应用。