home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / VISBASIC / VBRIG10A / DEMOSTD.FR_ / DEMOSTD.FR
Text File  |  1994-10-02  |  10KB  |  318 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VB/Rig Std Demo - Force Errors"
  5.    ClientHeight    =   3375
  6.    ClientLeft      =   2415
  7.    ClientTop       =   1440
  8.    ClientWidth     =   5595
  9.    Height          =   3780
  10.    Left            =   2355
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3375
  15.    ScaleWidth      =   5595
  16.    Top             =   1095
  17.    Width           =   5715
  18.    Begin CommandButton Command5 
  19.       Caption         =   "&Close"
  20.       Height          =   375
  21.       Left            =   1980
  22.       TabIndex        =   2
  23.       Top             =   2880
  24.       Width           =   1635
  25.    End
  26.    Begin CommandButton Command4 
  27.       Caption         =   "Error in a Code Procedure (trapped remotely)"
  28.       Height          =   435
  29.       Left            =   600
  30.       TabIndex        =   3
  31.       Top             =   2160
  32.       Width           =   4395
  33.    End
  34.    Begin CommandButton Command3 
  35.       Caption         =   "Error in a Code Procedure (trapped locally)"
  36.       Height          =   435
  37.       Left            =   600
  38.       TabIndex        =   6
  39.       Top             =   1620
  40.       Width           =   4395
  41.    End
  42.    Begin CommandButton Command2 
  43.       Caption         =   "Error in a Private Form Procedure"
  44.       Height          =   435
  45.       Left            =   600
  46.       TabIndex        =   5
  47.       Top             =   1080
  48.       Width           =   4395
  49.    End
  50.    Begin CommandButton Command1 
  51.       Caption         =   "Error in an Event Procedure"
  52.       Height          =   435
  53.       Left            =   600
  54.       TabIndex        =   4
  55.       Top             =   540
  56.       Width           =   4395
  57.    End
  58.    Begin TextBox Text1 
  59.       Height          =   315
  60.       Left            =   3600
  61.       TabIndex        =   1
  62.       Text            =   "380"
  63.       Top             =   120
  64.       Width           =   1395
  65.    End
  66.    Begin Label Label1 
  67.       Caption         =   "Supply your favorite error &number:"
  68.       Height          =   195
  69.       Left            =   600
  70.       TabIndex        =   0
  71.       Top             =   180
  72.       Width           =   2955
  73.    End
  74. End
  75. Option Explicit
  76.  
  77. Const VBRIG_MODULE_ID_STRING = "DEMOSTD.FRM"
  78.  
  79. Sub Command1_Click ()
  80. '+++ VB/Rig Begin Push +++
  81. Const VBRIG_PROC_ID_STRING = "+Command1_Click"
  82. Dim VBRigErr As Integer, VBRigErrMsg As String
  83. On Error GoTo Command1_Click_VBRigErr
  84. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  85. '+++ VB/Rig End +++
  86.  
  87. Error Val(text1.Text)
  88.  
  89. '+++ VB/Rig Begin Pop +++
  90. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  91. Exit Sub
  92.  
  93. '=======================
  94. Command1_Click_VBRigErr:
  95. '=======================
  96. VBRigErr = Err
  97. VBRigErrMsg = Error$
  98. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  99. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  100. Exit Sub
  101. '+++ VB/Rig End +++
  102. End Sub
  103.  
  104. Sub Command2_Click ()
  105. '+++ VB/Rig Begin Push +++
  106. Const VBRIG_PROC_ID_STRING = "+Command2_Click"
  107. Dim VBRigErr As Integer, VBRigErrMsg As String
  108. On Error GoTo Command2_Click_VBRigErr
  109. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  110. '+++ VB/Rig End +++
  111.  
  112. Call MyPrivateFormSub
  113.  
  114. '+++ VB/Rig Begin Pop +++
  115. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  116. Exit Sub
  117.  
  118. '=======================
  119. Command2_Click_VBRigErr:
  120. '=======================
  121. VBRigErr = Err
  122. VBRigErrMsg = Error$
  123. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  124. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  125. Exit Sub
  126. '+++ VB/Rig End +++
  127. End Sub
  128.  
  129. Sub Command3_Click ()
  130. '+++ VB/Rig Begin Push +++
  131. Const VBRIG_PROC_ID_STRING = "+Command3_Click"
  132. Dim VBRigErr As Integer, VBRigErrMsg As String
  133. On Error GoTo Command3_Click_VBRigErr
  134. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  135. '+++ VB/Rig End +++
  136.  
  137. Call MyDummyPrivateFormSub
  138.  
  139. '+++ VB/Rig Begin Pop +++
  140. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  141. Exit Sub
  142.  
  143. '=======================
  144. Command3_Click_VBRigErr:
  145. '=======================
  146. VBRigErr = Err
  147. VBRigErrMsg = Error$
  148. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  149. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  150. Exit Sub
  151. '+++ VB/Rig End +++
  152. End Sub
  153.  
  154. Sub Command4_Click ()
  155. '+++ VB/Rig Begin Push +++
  156. Const VBRIG_PROC_ID_STRING = "+Command4_Click"
  157. Dim VBRigErr As Integer, VBRigErrMsg As String
  158. On Error GoTo Command4_Click_VBRigErr
  159. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  160. '+++ VB/Rig End +++
  161.  
  162. Dim nRC As Integer
  163.  
  164.  
  165. nRC = MyDummyCodeFunction%(Val(text1.Text))
  166.  
  167. '+++ VB/Rig Begin Pop +++
  168. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  169. Exit Sub
  170.  
  171. '=======================
  172. Command4_Click_VBRigErr:
  173. '=======================
  174. VBRigErr = Err
  175. VBRigErrMsg = Error$
  176. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  177. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  178. Exit Sub
  179. '+++ VB/Rig End +++
  180. End Sub
  181.  
  182. Sub Command5_Click ()
  183. '+++ VB/Rig Begin Push +++
  184. Const VBRIG_PROC_ID_STRING = "+Command5_Click"
  185. Dim VBRigErr As Integer, VBRigErrMsg As String
  186. On Error GoTo Command5_Click_VBRigErr
  187. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  188. '+++ VB/Rig End +++
  189.  
  190. Unload Form1
  191. '+++ VB/Rig Begin Pop +++
  192. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  193. '+++ VB/Rig End +++
  194. End
  195.  
  196. '+++ VB/Rig Begin Pop +++
  197. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  198. Exit Sub
  199.  
  200. '=======================
  201. Command5_Click_VBRigErr:
  202. '=======================
  203. VBRigErr = Err
  204. VBRigErrMsg = Error$
  205. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  206. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  207. Exit Sub
  208. '+++ VB/Rig End +++
  209. End Sub
  210.  
  211. Sub Form_Load ()
  212. '+++ VB/Rig Begin Push +++
  213. Const VBRIG_PROC_ID_STRING = "+Form_Load"
  214. Dim VBRigErr As Integer, VBRigErrMsg As String
  215. On Error GoTo Form_Load_VBRigErr
  216. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  217. '+++ VB/Rig End +++
  218.  
  219. Dim nRC As Integer
  220.  
  221.  
  222. App.Title = "Demo Std"
  223. nRC = CenterForm(Form1)
  224.  
  225. '+++ VB/Rig Begin Pop +++
  226. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  227. Exit Sub
  228.  
  229. '==================
  230. Form_Load_VBRigErr:
  231. '==================
  232. VBRigErr = Err
  233. VBRigErrMsg = Error$
  234. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  235. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  236. Exit Sub
  237. '+++ VB/Rig End +++
  238. End Sub
  239.  
  240. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  241. '+++ VB/Rig Begin Push +++
  242. Const VBRIG_PROC_ID_STRING = "+Form_QueryUnload"
  243. Dim VBRigErr As Integer, VBRigErrMsg As String
  244. On Error GoTo Form_QueryUnload_VBRigErr
  245. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  246. '+++ VB/Rig End +++
  247.  
  248. If UnloadMode <> 1 Then
  249.    Cancel = True
  250.    Command5_Click
  251. End If
  252.  
  253. '+++ VB/Rig Begin Pop +++
  254. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  255. Exit Sub
  256.  
  257. '=========================
  258. Form_QueryUnload_VBRigErr:
  259. '=========================
  260. VBRigErr = Err
  261. VBRigErrMsg = Error$
  262. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  263. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  264. Exit Sub
  265. '+++ VB/Rig End +++
  266. End Sub
  267.  
  268. Sub MyDummyPrivateFormSub ()
  269. '+++ VB/Rig Begin Push +++
  270. Const VBRIG_PROC_ID_STRING = "+MyDummyPrivateFormSub"
  271. Dim VBRigErr As Integer, VBRigErrMsg As String
  272. On Error GoTo MyDummyPrivateFormSub_VBRigErr
  273. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  274. '+++ VB/Rig End +++
  275.  
  276. Call MyFullyRiggedCodeSub(Val(text1.Text))
  277.  
  278. '+++ VB/Rig Begin Pop +++
  279. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  280. Exit Sub
  281.  
  282. '==============================
  283. MyDummyPrivateFormSub_VBRigErr:
  284. '==============================
  285. VBRigErr = Err
  286. VBRigErrMsg = Error$
  287. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  288. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  289. Exit Sub
  290. '+++ VB/Rig End +++
  291. End Sub
  292.  
  293. Sub MyPrivateFormSub ()
  294. '+++ VB/Rig Begin Push +++
  295. Const VBRIG_PROC_ID_STRING = "+MyPrivateFormSub"
  296. Dim VBRigErr As Integer, VBRigErrMsg As String
  297. On Error GoTo MyPrivateFormSub_VBRigErr
  298. Call VBRig_Error(VBRIG_PUSH_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  299. '+++ VB/Rig End +++
  300.  
  301. Error Val(text1.Text)
  302.  
  303. '+++ VB/Rig Begin Pop +++
  304. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  305. Exit Sub
  306.  
  307. '=========================
  308. MyPrivateFormSub_VBRigErr:
  309. '=========================
  310. VBRigErr = Err
  311. VBRigErrMsg = Error$
  312. Call VBRig_Error(VBRIG_SHOW_ERROR, VBRigErr, VBRigErrMsg, VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  313. Call VBRig_Error(VBRIG_POP_PROC_STACK, 0, "", VBRIG_MODULE_ID_STRING, VBRIG_PROC_ID_STRING)
  314. Exit Sub
  315. '+++ VB/Rig End +++
  316. End Sub
  317.  
  318.