home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pop-up1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-10-08  |  2.4 KB  |  65 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   1140
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   2235
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1140
  11.    ScaleWidth      =   2235
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CommandButton Command1 
  15.       Caption         =   "Click Here"
  16.       Height          =   495
  17.       Left            =   240
  18.       TabIndex        =   0
  19.       Top             =   240
  20.       Width           =   1695
  21.    End
  22.    Begin VB.Label Label1 
  23.       Caption         =   "Double Click Above!!"
  24.       Height          =   255
  25.       Left            =   360
  26.       TabIndex        =   1
  27.       Top             =   840
  28.       Width           =   1695
  29.    End
  30. Attribute VB_Name = "Form1"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. Private Sub Command1_Click()
  36. PopupMenu Form2.file
  37. 'to make a popup menu, without affecting the border,
  38. 'first, you need to make a new form, then create a normal
  39. 'menu on it <see form2> then,
  40. 'in form1 <or whatever> double click the object you want the object to pop out
  41. 'of <like you did to view this> and put in
  42. ' PopupMenu form2.file
  43. 'in the click <such as "Command1_click"
  44. 'where it says form2, put the name of the form that you put the menu on,
  45. 'where is says file, put the name of the main menu <the first layer>
  46. 'you don't neccasarily have to put the code into the click event, you can also put it in the
  47. 'Mouse Up, Mouse down, or whatever you want...
  48. 'ok, so you know what to do, i'll walk you through it...
  49. 'first of all, on form1, where you clicked "click here" twice,
  50. 'make a new button.
  51. 'the name should automatically be command2 - that's fine.
  52. 'now, double click the button you just made, so you come up to the code.
  53. 'then, where it says
  54. 'Private Sub Command2_Click ()
  55. 'End Sub
  56. 'put in "PopupMenu form2.edit
  57. 'there is already a menu made in form2 called edit, so that's why you just had to say edit..
  58. 'blah... now run the program thing, and click on "Command2" and Delete and Remove should popup.
  59. 'then, just go on from there...
  60. 'by kr0q
  61. 'email me if you don't understand, or need more info - worldfamouskr0q@phreaker.net
  62. 'AIM SN: worldfamouskr0q@phreaker.net
  63. ' Website - http://eleventeen.net
  64. End Sub
  65.