API tools faq
paste
pipian

vb scrub

pipian
Oct 29th, 2011
131
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 6.06 KB | None | 0 0
raw download clone embed print report
  1. VERSION 5.00
  2. Begin VB.Form Form2
  3.    BorderStyle     =   1  'Fixed Single
  4.   Caption         =   "Attack Type Specification"
  5.    ClientHeight    =   3495
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4215
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.   MinButton       =   0   'False
  12.   ScaleHeight     =   3495
  13.    ScaleWidth      =   4215
  14.    StartUpPosition =   3  'Windows Default
  15.   Begin VB.OptionButton Option15
  16.       Caption         =   "Ghost"
  17.       Height          =   255
  18.       Left            =   2160
  19.       TabIndex        =   16
  20.       Top             =   2280
  21.       Width           =   1935
  22.    End
  23.    Begin VB.OptionButton Option14
  24.       Caption         =   "Rock"
  25.       Height          =   255
  26.       Left            =   2160
  27.       TabIndex        =   15
  28.       Top             =   1920
  29.       Width           =   1935
  30.    End
  31.    Begin VB.OptionButton Option13
  32.       Caption         =   "Bug"
  33.       Height          =   255
  34.       Left            =   2160
  35.       TabIndex        =   14
  36.       Top             =   1560
  37.       Width           =   1935
  38.    End
  39.    Begin VB.OptionButton Option12
  40.       Caption         =   "Psychic"
  41.       Height          =   255
  42.       Left            =   2160
  43.       TabIndex        =   13
  44.       Top             =   1200
  45.       Width           =   1935
  46.    End
  47.    Begin VB.OptionButton Option11
  48.       Caption         =   "Flying"
  49.       Height          =   255
  50.       Left            =   2160
  51.       TabIndex        =   12
  52.       Top             =   840
  53.       Width           =   1935
  54.    End
  55.    Begin VB.OptionButton Option10
  56.       Caption         =   "Ground"
  57.       Height          =   255
  58.       Left            =   2160
  59.       TabIndex        =   11
  60.       Top             =   480
  61.       Width           =   1935
  62.    End
  63.    Begin VB.OptionButton Option9
  64.       Caption         =   "Poison"
  65.       Height          =   255
  66.       Left            =   2160
  67.       TabIndex        =   10
  68.       Top             =   120
  69.       Width           =   1815
  70.    End
  71.    Begin VB.OptionButton Option8
  72.       Caption         =   "Dragon"
  73.       Height          =   255
  74.       Left            =   1680
  75.       TabIndex        =   9
  76.       Top             =   2640
  77.       Width           =   855
  78.    End
  79.    Begin VB.OptionButton Option7
  80.       Caption         =   "Fighting"
  81.       Height          =   255
  82.       Left            =   120
  83.       TabIndex        =   8
  84.       Top             =   2280
  85.       Width           =   1815
  86.    End
  87.    Begin VB.OptionButton Option6
  88.       Caption         =   "Ice"
  89.       Height          =   255
  90.       Left            =   120
  91.       TabIndex        =   7
  92.       Top             =   1920
  93.       Width           =   1695
  94.    End
  95.    Begin VB.OptionButton Option5
  96.       Caption         =   "Grass"
  97.       Height          =   255
  98.       Left            =   120
  99.       TabIndex        =   6
  100.       Top             =   1560
  101.       Width           =   1695
  102.    End
  103.    Begin VB.OptionButton Option4
  104.       Caption         =   "Electric"
  105.       Height          =   255
  106.       Left            =   120
  107.       TabIndex        =   5
  108.       Top             =   1200
  109.       Width           =   1695
  110.    End
  111.    Begin VB.OptionButton Option3
  112.       Caption         =   "Water"
  113.       Height          =   255
  114.       Left            =   120
  115.       TabIndex        =   4
  116.       Top             =   840
  117.       Width           =   1695
  118.    End
  119.    Begin VB.OptionButton Option2
  120.       Caption         =   "Fire"
  121.       Height          =   255
  122.       Left            =   120
  123.       TabIndex        =   3
  124.       Top             =   480
  125.       Width           =   1695
  126.    End
  127.    Begin VB.OptionButton Option1
  128.       Caption         =   "Normal"
  129.       Height          =   255
  130.       Left            =   120
  131.       TabIndex        =   2
  132.       Top             =   120
  133.       Width           =   1575
  134.    End
  135.    Begin VB.CommandButton Command2
  136.       Caption         =   "&Cancel"
  137.       Height          =   375
  138.       Left            =   2160
  139.       TabIndex        =   1
  140.       Top             =   3000
  141.       Width           =   1935
  142.    End
  143.    Begin VB.CommandButton Command1
  144.       Caption         =   "&OK"
  145.       Height          =   375
  146.       Left            =   120
  147.       TabIndex        =   0
  148.       Top             =   3000
  149.       Width           =   1935
  150.    End
  151. End
  152. Attribute VB_Name = "Form2"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. Private Sub Command1_Click()
  158.     If Option1.Value = True Then
  159.         Form1.Label7.Caption = "Normal"
  160.         attack = 0
  161.     ElseIf Option2.Value = True Then
  162.         Form1.Label7.Caption = "Fire"
  163.         attack = 1
  164.     ElseIf Option3.Value = True Then
  165.         Form1.Label7.Caption = "Water"
  166.         attack = 2
  167.     ElseIf Option4.Value = True Then
  168.         Form1.Label7.Caption = "Electric"
  169.         attack = 3
  170.     ElseIf Option5.Value = True Then
  171.         Form1.Label7.Caption = "Grass"
  172.         attack = 4
  173.     ElseIf Option6.Value = True Then
  174.         Form1.Label7.Caption = "Ice"
  175.         attack = 5
  176.     ElseIf Option7.Value = True Then
  177.         Form1.Label7.Caption = "Fighting"
  178.         attack = 6
  179.     ElseIf Option8.Value = True Then
  180.         Form1.Label7.Caption = "Dragon"
  181.         attack = 14
  182.     ElseIf Option9.Value = True Then
  183.         Form1.Label7.Caption = "Poison"
  184.         attack = 7
  185.     ElseIf Option10.Value = True Then
  186.         Form1.Label7.Caption = "Ground"
  187.         attack = 8
  188.     ElseIf Option11.Value = True Then
  189.         Form1.Label7.Caption = "Flying"
  190.         attack = 9
  191.     ElseIf Option12.Value = True Then
  192.         Form1.Label7.Caption = "Psychic"
  193.         attack = 10
  194.     ElseIf Option13.Value = True Then
  195.         Form1.Label7.Caption = "Bug"
  196.         attack = 11
  197.     ElseIf Option14.Value = True Then
  198.         Form1.Label7.Caption = "Rock"
  199.         attack = 12
  200.     ElseIf Option15.Value = True Then
  201.         Form1.Label7.Caption = "Ghost"
  202.         attack = 13
  203.     End If
  204.     Unload Me
  205. End Sub
  206.  
  207. Private Sub Command2_Click()
  208.     Unload Me
  209. End Sub
  210.  
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!