home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Paint188074252001.psc / rita_ram(ny).frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-03-22  |  2.8 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm MDIForm1 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Rossing Paint"
  5.    ClientHeight    =   8550
  6.    ClientLeft      =   4005
  7.    ClientTop       =   1800
  8.    ClientWidth     =   10980
  9.    Icon            =   "rita_ram(ny).frx":0000
  10.    LinkTopic       =   "MDIForm1"
  11.    WindowState     =   2  'Maximized
  12.    Begin VB.Menu file 
  13.       Caption         =   "&File"
  14.       Begin VB.Menu new 
  15.          Caption         =   "New"
  16.       End
  17.       Begin VB.Menu b1 
  18.          Caption         =   "-"
  19.       End
  20.       Begin VB.Menu open 
  21.          Caption         =   "Open"
  22.       End
  23.       Begin VB.Menu save 
  24.          Caption         =   "Save"
  25.       End
  26.       Begin VB.Menu b2 
  27.          Caption         =   "-"
  28.       End
  29.       Begin VB.Menu print 
  30.          Caption         =   "Print"
  31.       End
  32.       Begin VB.Menu b3 
  33.          Caption         =   "-"
  34.       End
  35.       Begin VB.Menu exit 
  36.          Caption         =   "Exit"
  37.       End
  38.    End
  39.    Begin VB.Menu window 
  40.       Caption         =   "&Window"
  41.       Begin VB.Menu tools 
  42.          Caption         =   "Tools"
  43.       End
  44.       Begin VB.Menu paint 
  45.          Caption         =   "Paint"
  46.       End
  47.       Begin VB.Menu tool 
  48.          Caption         =   "Tool Properties"
  49.       End
  50.    End
  51. Attribute VB_Name = "MDIForm1"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Private Sub cordtinate_Click()
  57. Form4.Show
  58. End Sub
  59. Private Sub exit_Click()
  60. Unload Me
  61. End Sub
  62. Private Sub MDIForm_Load()
  63.  ' Me.WindowState = 2
  64.   Form2.Show
  65.   Form1.Show
  66.   Form3.Show
  67.   Form4.Show
  68. End Sub
  69. Private Sub new_Click()
  70. Form5.Show
  71. End Sub
  72. Private Sub open_Click()
  73. On Error GoTo 10
  74.     Form1.CommonDialog1.ShowOpen
  75.     Form3.Pic1.Picture = LoadPicture(Form1.CommonDialog1.FileName)
  76. End Sub
  77. Private Sub paint_Click()
  78. Form3.Show
  79. End Sub
  80. Private Sub print_Click()
  81. 'On Error GoTo 9129
  82. SavePicture Form3.Pic1.Image, ("C:\bas.bmp")
  83. Form3.Pic1.Picture = LoadPicture("C:\bas.bmp")
  84. Form1.CommonDialog1.ShowPrinter
  85. Printer.PaintPicture Form3.Pic1.Picture, 0, 0
  86. Printer.EndDoc
  87. '9129
  88. End Sub
  89. Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  90. End Sub
  91. Private Sub save_Click()
  92.    Form1.CommonDialog3.InitDir = App.Path
  93.     Form1.CommonDialog3.Filter = "Bitmap Image (*.bmp)|*.bmp|jpeg Image (*.jpg)|*.jpg|Bitmap Image (*.gif)|*.gif|"
  94.     Form1.CommonDialog3.DialogTitle = "Save Rossing Paint"
  95.     Form1.CommonDialog3.ShowSave
  96. If Form1.CommonDialog3.FileName <> "" Then
  97.     SavePicture Form3.Pic1.Image, Form1.CommonDialog3.FileName
  98. End If
  99. End Sub
  100. Private Sub tool_Click()
  101. Form1.Show
  102. End Sub
  103. Private Sub tools_Click()
  104. Form2.Show
  105. End Sub
  106.