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

-------------------------
http://www.petermorano.com/Using-Visual ... -2008.aspx
Using Visual Studio 2005 Add-ins in Visual Studio 2008
Same here...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
I don't want to install hundreds of megabytes and crap in the registry etc just for that..
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 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!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