PVB - Power Visual Builder

Developed or developing a new product in PureBasic? Tell the world about it.
MysticBoy

PVB - Power Visual Builder

Post by MysticBoy »

If you install the VS2008/2005 ,You can use it to design the window, and get the PB code



Click here to Download it! http://www.mysticboy.cn/attachments/mon ... 185439.rar


Good luck

Image
-------------------------
http://www.petermorano.com/Using-Visual ... -2008.aspx
Using Visual Studio 2005 Add-ins in Visual Studio 2008
nicolaus
Enthusiast
Enthusiast
Posts: 456
Joined: Tue Aug 05, 2003 11:30 pm
Contact:

Post by nicolaus »

First thanks for this one.

Now i have a question.
What i must do to see the menu item in VS2008 for your addin? I have copy the dll and .Addin file into the Addins folder of VS2008 and in the Addin Manager i can see the addin but i cant see the menu item like "PVB".

Hope you can help me
milan1612
Addict
Addict
Posts: 894
Joined: Thu Apr 05, 2007 12:15 am
Location: Nuremberg, Germany
Contact:

Post by milan1612 »

nicolaus wrote:First thanks for this one.

Now i have a question.
What i must do to see the menu item in VS2008 for your addin? I have copy the dll and .Addin file into the Addins folder of VS2008 and in the Addin Manager i can see the addin but i cant see the menu item like "PVB".

Hope you can help me
Same here...
Windows 7 & PureBasic 4.4
MysticBoy

Post by MysticBoy »

Tools --Addin --Check PVB
Image
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6166
Joined: Sat May 17, 2003 11:31 am
Contact:

Post by blueznl »

This sounds interesting... any example?
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
Tipperton
Addict
Addict
Posts: 1286
Joined: Thu Jun 19, 2003 7:55 pm

Post by Tipperton »

Will it work with the express editions of Visual Studio?
nicolaus
Enthusiast
Enthusiast
Posts: 456
Joined: Tue Aug 05, 2003 11:30 pm
Contact:

Post by nicolaus »

a small information for all:

It works but if you use gadgets what is not direct in PB it will not be convert to PB.
The addin can only convert gadgets what pb have default includet!
c4s
Addict
Addict
Posts: 1981
Joined: Thu Nov 01, 2007 5:37 pm
Location: Germany

Post by c4s »

Is it possible to deliver this requiered file somehow?
I want to test your program but I don't want to install hundreds of
megabytes and crap in the registry etc just for that..

edit:
Sorry, I think I misunderstood something ;)
If any of you native English speakers have any suggestions for the above text, please let me know (via PM). Thanks!
User avatar
Fluid Byte
Addict
Addict
Posts: 2336
Joined: Fri Jul 21, 2006 4:41 am
Location: Berlin, Germany

Post by Fluid Byte »

I don't want to install hundreds of megabytes and crap in the registry etc just for that..
:lol:
Windows 10 Pro, 64-Bit / Whose Hoff is it anyway?
User avatar
loadstone
User
User
Posts: 97
Joined: Wed Jan 16, 2008 11:28 am
Location: china

Post by loadstone »

verygood thanks :wink:
User avatar
Rook Zimbabwe
Addict
Addict
Posts: 4322
Joined: Tue Jan 02, 2007 8:16 pm
Location: Cypress TX
Contact:

Post by Rook Zimbabwe »

I am confused...

This is the code you include with your download (I touched it up some but changed NOTHING (except for the spacing))

Code: Select all

Enumeration
    #Form1
    
EndEnumeration
Enumeration
    #comboBox2
    #linkLabel2
    #Containerpanel1
    #panel1
    #radioButton2
    #ContainergroupBox2
    #groupBox2
    #button2
    #statusStrip1
    #ContainergroupBox1
    #groupBox1
    #webBrowser1
    #treeView1
    #textBox1
    #richTextBox1
    #radioButton1
    #pictureBox1
    #numericUpDown1
    #monthCalendar1
    #maskedTextBox1
    #listBox1
    #linkLabel1
    #dateTimePicker1
    #label1
    #comboBox1
    #checkedListBox1
    #checkBox1
    #button1
    #menuStrip1
    
EndEnumeration
Enumeration
    #menuxxx
    #asdfasdfasd
    #fdasdfToolStripMenuItem
    #sadfasdToolStripMenuItem
    #asdfsadfasToolStripMenuItem
    #sdafsadfToolStripMenuItem
    #aToolStripMenuItem
    #sadfsadToolStripMenuItem
    #asdfasdfToolStripMenuItem
    #sadfasdToolStripMenuItem1
    #asdfasdToolStripMenuItem
    #asdfsadfasdToolStripMenuItem
    #asdfasdfasdToolStripMenuItem
    #sadfasToolStripMenuItem
    #sdafasdToolStripMenuItem
    #aaaaToolStripMenuItem
    
EndEnumeration
Procedure Form1_Open()
    If OpenWindow(#Form1, 15, 15, 542, 387, "Form1" ,#PB_Window_SystemMenu| #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget |#PB_Window_SizeGadget| #PB_Window_TitleBar  )
        If CreateGadgetList(WindowID(#Form1))
            ComboBoxGadget(#comboBox2,26, 198, 121, 150 , #PB_ComboBox_Editable   )
            HyperLinkGadget(#linkLabel2,13, 236, 67, 14,"linkLabel2", 0 , #PB_Hyperlink_Underline   )
            ContainerGadget(#Containerpanel1, 333,  11, 200, 100)
            Frame3DGadget(#panel1, 333,  11, 200, 100, ""  ,#PB_Frame3D_Single )
            
            CloseGadgetList();panel1
            OptionGadget(#radioButton2, 97, 224, 87, 22, "radioButton2")
            ContainerGadget(#ContainergroupBox2, 300,  59, 200, 100)
            Frame3DGadget(#groupBox2, 300,  59, 200, 100, "groupBox2"  )
            ButtonGadget(#button2, 6, 44, 75, 56, "asdfasdfasfasdfasdfsdfasdfasdfsadfasdfasd" , #PB_Button_Left| #PB_Button_MultiLine)
            
            CloseGadgetList();groupBox2
            
            If CreateStatusBar(#statusStrip1, WindowID(#Form1))
                AddStatusBarField(534)
                StatusBarText(#statusStrip1, 0,"toolStripStatusLabel1")
            EndIf
            
            ContainerGadget(#ContainergroupBox1, 384,  303, 200, 100)
            Frame3DGadget(#groupBox1, 384,  303, 200, 100, "groupBox1"  )
            
            CloseGadgetList();groupBox1
            WebGadget(#webBrowser1, 250, -12, 250, 250, "about:blank")
            TreeGadget(#treeView1, 337, 100, 121, 97 );//PB_Tree_Collapsed
            StringGadget(#textBox1, 144, 29, 100, 21, "" )
            EditorGadget(#richTextBox1,359, 200, 100, 96)
            SetGadgetText(#richTextBox1, "")
            OptionGadget(#radioButton1, 229, 281, 95, 16, "radioButton1")
            ImageGadget(#pictureBox1,229, 13, 100, 50, img_pictureBox1 )
            SpinGadget(#numericUpDown1,300, 228, 120, 21, 0, 100 , #PB_Spin_Numeric   )
            
            IPAddressGadget(#maskedTextBox1,199, 253, 100, 21)
            ListViewGadget(#listBox1,61, 253, 120, 88 )
            HyperLinkGadget(#linkLabel1,210, 100, 65, 12,"linkLabel1", 0 , #PB_Hyperlink_Underline   )
            
            TextGadget(#label1,28, 215, 43, 14,"label1"  , #PB_Text_Border   )
            ComboBoxGadget(#comboBox1,13, 178, 121, 20 , #PB_ComboBox_Editable   )
            
            CheckBoxGadget(#checkBox1,28, 52, 78, 16 , "checkBox1" )
            ButtonGadget(#button1, 48, 27, 75, 23, "button1" , #PB_Button_Left| #PB_Button_Default| #PB_Button_MultiLine)
            If CreateMenu(#menuStrip1, WindowID(#Form1))
                MenuTitle("menu")
                OpenSubMenu("menu")
                OpenSubMenu("²Ëµ¥2")
                MenuItem(#fdasdfToolStripMenuItem, "fdasdf")
                OpenSubMenu("sadfasd")
                MenuItem(#asdfsadfasToolStripMenuItem, "asdfsadfas")
                MenuItem(#sdafsadfToolStripMenuItem, "sdafsadf")
                OpenSubMenu("a")
                MenuItem(#sadfsadToolStripMenuItem, "sadfsad")
                MenuBar()
                MenuItem(#asdfasdfToolStripMenuItem, "asdfasdf")
                CloseSubMenu()
                CloseSubMenu()
                MenuItem(#sadfasdToolStripMenuItem1, "sadfasd")
                MenuItem(#asdfasdToolStripMenuItem, "asdfasd")
                OpenSubMenu("asdfsadfasd")
                MenuItem(#asdfasdfasdToolStripMenuItem, "asdfasdfasd")
                OpenSubMenu("sadfas")
                MenuItem(#sdafasdToolStripMenuItem, "sdafasd")
                CloseSubMenu()
                MenuBar()
                CloseSubMenu()
                MenuBar()
                MenuItem(#aaaaToolStripMenuItem, "aaaa")
                CloseSubMenu()
                MenuBar()
                CloseSubMenu()
            EndIf
        EndIf
    EndIf
EndProcedure
Form1_Open()
Repeat ; Start of the event loop
    
    Event = WaitWindowEvent() ; This line waits until an event is received from Windows
    
    WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
    
    GadgetID = EventGadget() ; Is it a gadget event?
    
    EventType = EventType() ; The event type
    
    ;You can place code here, and use the result as parameters for the procedures
    
    If Event = #PB_Event_Menu
        
  
    EndIf
    
    If Event = #PB_Event_Gadget
        
    EndIf
    
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;
I see no new gadgets in PB? I don't even see a library call.

What is this supposed to show? A terrible design for a window?

Why waste time downloading this?
Binarily speaking... it takes 10 to Tango!!!

Image
http://www.bluemesapc.com/
Kale
PureBasic Expert
PureBasic Expert
Posts: 3000
Joined: Fri Apr 25, 2003 6:03 pm
Location: Lincoln, UK
Contact:

Post by Kale »

I'm sure this is the same guy who keeps putting pirated versions of PB on his website, i'm not even too sure that he has ever purchased a copy. I thought he was banned from here!

I had to email him a few months ago to take down a link offering my book free for all to download.

MysticBoy, you are a pirate. Go away!
--Kale

Image
PB
PureBasic Expert
PureBasic Expert
Posts: 7581
Joined: Fri Apr 25, 2003 5:24 pm

Post by PB »

> I'm sure this is the same guy who keeps putting pirated versions of PB on his website

It is.
I compile using 5.31 (x86) on Win 7 Ultimate (64-bit).
"PureBasic won't be object oriented, period" - Fred.
User avatar
Rook Zimbabwe
Addict
Addict
Posts: 4322
Joined: Tue Jan 02, 2007 8:16 pm
Location: Cypress TX
Contact:

Post by Rook Zimbabwe »

His example would not quit (lucky I had it sandboxed!) It kept trying to call home...

I have been telling you he is a BAD SEED sonce he requested info on how to construct MALWARE about 4 months ago... I got flamed for it then!

I powerchunked it and just sent an email to his service provider protesting his MALware.

Domain Name: mysticboy.cn
ROID: 20070308s10001s29541708-cn
Domain Status: ok
Registrant Organization: 马燕洪
Registrant Name: 马燕洪
Administrative Email: mysticboy@126.com
Sponsoring Registrar: 北京万网志成科技有限公司
Name Server:dns7.hichina.com
Name Server:dns8.hichina.com
Registration Date: 2007-03-08 00:25
Expiration Date: 2009-03-08 00:25

[whois.cnnic.net.cn]

When my wife wakes up I am going to ask her to help me translate the info! :D

Unless someone else is married to a lady born in China?

His host company is:
Domain Name ..................... hichina.com
Name Server ..................... ns3.hichina.com
ns4.hichina.com
Registrant ID ................... hc0815466063-cn
Registrant Name ................. Mingjing Ma
Registrant Organization ......... Beijing Wanwang Zhicheng Keji Youxian Gongsi
Registrant Address .............. Dongcheng District Beijing
Registrant City ................. Beijing
Registrant Province/State ....... Beijing
Registrant Postal Code .......... 100011
Registrant Country Code ......... CN
Registrant Phone Number ......... +86.01062642299 -
Registrant Fax .................. +86.01064242299 -
Registrant Email ................ mamj@hichina.com
Technical ID .................... tech
Technical Name .................. tech
Technical Organization .......... HiChina Web Solutions (Hong Kong) Limited
Technical Address ............... 3/F., HiChina Mansion,
No.27 Gulouwai Avenue Dongcheng District,
Beijing, China
Technical City .................. Beijing
Technical Province/State ........ Beijing
Technical Postal Code ........... 100011
Technical Country Code .......... CN
Technical Phone Number .......... +86.01064242299 -
Technical Fax ................... +86.01064254247 -
Technical Email ................. domainadm@hichina.com
Administrative ID ............... admin
Administrative Name ............. admin
Administrative Organization ..... HiChina Web Solutions (Hong Kong) Limited
Administrative Address .......... 3/F., HiChina Mansion,
No.27 Gulouwai Avenue Dongcheng District,
Beijing, China
Administrative City ............. Beijing
Administrative Province/State ... Beijing
Administrative Postal Code ...... 100011
Administrative Country Code ..... CN
Administrative Phone Number ..... +86.01064242299 -
Administrative Fax .............. +86.01064254247 -
Administrative Email ............ domainadm@hichina.com
Billing ID ...................... billing
Billing Name .................... billing
Billing Organization ............ HiChina Web Solutions (Hong Kong) Limited
Billing Address ................. 3/F., HiChina Mansion,
No.27 Gulouwai Avenue Dongcheng District,
Beijing, China
Billing City .................... Beijing
Billing Province/State .......... Beijing
Billing Postal Code ............. 100011
Billing Country Code ............ CN
Billing Phone Number ............ +86.01064242299 -
Billing Fax ..................... +86.01064254247 -
Billing Email ................... domainadm@hichina.com
Expiration Date ................. 2010-04-24 04:00:00
I got a hold of HIS domain info because my brother in law works for the Chinese Secret Police. I sent him the domain info as well... He has promised to look in to it on his end. I told him that if he wanted (his sister) my wife to complain that there was pornography on the site I was willing to help him. That would chunk him BAD!
Binarily speaking... it takes 10 to Tango!!!

Image
http://www.bluemesapc.com/
akee
Enthusiast
Enthusiast
Posts: 498
Joined: Wed Aug 18, 2004 9:52 am
Location: Penang, Malaysia

Post by akee »

Kale wrote:I had to email him a few months ago to take down a link offering my book free for all to download.
Ouch! I feel your pain.... :(
Post Reply