home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / MSN_Status329121122001.psc / Form2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1990-10-03  |  5.5 KB  |  207 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   5445
  6.    ClientTop       =   4050
  7.    ClientWidth     =   4440
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "Form2.frx":0000
  14.    ScaleHeight     =   3090
  15.    ScaleWidth      =   4440
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.TextBox Text1 
  18.       Appearance      =   0  'Flat
  19.       BorderStyle     =   0  'None
  20.       Height          =   2190
  21.       Left            =   130
  22.       MultiLine       =   -1  'True
  23.       TabIndex        =   0
  24.       Top             =   240
  25.       Width           =   4095
  26.    End
  27.    Begin VB.Image Image3 
  28.       Height          =   390
  29.       Left            =   240
  30.       Picture         =   "Form2.frx":4EF1A
  31.       Top             =   2640
  32.       Width           =   1560
  33.    End
  34.    Begin VB.Image Image2 
  35.       Height          =   360
  36.       Left            =   2520
  37.       Picture         =   "Form2.frx":50F0C
  38.       Top             =   2655
  39.       Width           =   1560
  40.    End
  41.    Begin VB.Image Image1 
  42.       Height          =   2595
  43.       Left            =   0
  44.       Picture         =   "Form2.frx":52C8E
  45.       Top             =   10
  46.       Width           =   4455
  47.    End
  48.    Begin VB.Menu status 
  49.       Caption         =   "Status"
  50.       Visible         =   0   'False
  51.       Begin VB.Menu online 
  52.          Caption         =   "Online"
  53.          Checked         =   -1  'True
  54.       End
  55.       Begin VB.Menu busy 
  56.          Caption         =   "Busy"
  57.          Checked         =   -1  'True
  58.       End
  59.       Begin VB.Menu brb 
  60.          Caption         =   "Be Right Back"
  61.          Checked         =   -1  'True
  62.       End
  63.       Begin VB.Menu awak 
  64.          Caption         =   "Away"
  65.          Checked         =   -1  'True
  66.       End
  67.       Begin VB.Menu otf 
  68.          Caption         =   "On The Phone"
  69.          Checked         =   -1  'True
  70.       End
  71.       Begin VB.Menu otl 
  72.          Caption         =   "Out To Lunch"
  73.          Checked         =   -1  'True
  74.       End
  75.       Begin VB.Menu ao 
  76.          Caption         =   "Appear Offline"
  77.          Checked         =   -1  'True
  78.       End
  79.    End
  80. Attribute VB_Name = "Form2"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Private Sub ao_Click()
  86. DoEvents
  87. ao.Checked = True
  88. awak.Checked = False
  89. brb.Checked = False
  90. busy.Checked = False
  91. online.Checked = False
  92. otf.Checked = False
  93. otl.Checked = False
  94. Form1.MSN.LocalState = 6
  95. Form1.im1.Picture = Form1.img.ListImages(8).Picture
  96. End Sub
  97. Private Sub awak_Click()
  98. DoEvents
  99. ao.Checked = False
  100. awak.Checked = True
  101. brb.Checked = False
  102. busy.Checked = False
  103. online.Checked = False
  104. otf.Checked = False
  105. otl.Checked = False
  106. Form1.MSN.LocalState = 34
  107. Form1.im1.Picture = Form1.img.ListImages(6).Picture
  108. End Sub
  109. Private Sub brb_Click()
  110. DoEvents
  111. ao.Checked = False
  112. awak.Checked = False
  113. brb.Checked = True
  114. busy.Checked = False
  115. online.Checked = False
  116. otf.Checked = False
  117. otl.Checked = False
  118. Form1.MSN.LocalState = 14
  119. Form1.im1.Picture = Form1.img.ListImages(6).Picture
  120. End Sub
  121. Private Sub busy_Click()
  122. DoEvents
  123. ao.Checked = False
  124. awak.Checked = False
  125. brb.Checked = False
  126. busy.Checked = True
  127. online.Checked = False
  128. otf.Checked = False
  129. otl.Checked = False
  130. Form1.MSN.LocalState = 10
  131. Form1.im1.Picture = Form1.img.ListImages(7).Picture
  132. End Sub
  133. Private Sub Combo1_Click()
  134. If Combo1.Text = Combo1.list(1) Then Load_List (1)
  135. If Combo1.Text = Combo1.list(2) Then Load_List (3)
  136. If Combo1.Text = Combo1.list(0) Then Load_List (2)
  137. Me.Caption = "Viewing '" & Combo1.Text & "'"
  138. End Sub
  139. Private Sub Command1_Click()
  140. On Error GoTo error
  141. If Form1.MSN.LocalState = MSTATE_OFFLINE Then GoTo error
  142. Form1.MSN.Services.PrimaryService.FriendlyName = Text1.Text
  143. MsgBox "Name Changed Succesfully!", vbApplicationModal + vbInformation, "MSN Name Changer"
  144. Exit Sub
  145. error:
  146. MsgBox "Error Writeing Name!", vbApplicationModal + vbCritical, "MSN Name Changer"
  147. Text1.Text = Form1.MSN.LocalFriendlyName
  148. End Sub
  149. Private Sub Command2_Click()
  150. Form1.Show
  151. Unload Me
  152. End Sub
  153. Private Sub Form_Load()
  154. On Error Resume Next
  155. Text1.Text = Form1.MSN.LocalFriendlyName
  156. End Sub
  157. Private Sub Image2_Click()
  158. Command2_Click
  159. End Sub
  160. Private Sub Image3_Click()
  161. Command1_Click
  162. End Sub
  163. Private Sub online_Click()
  164. DoEvents
  165. ao.Checked = False
  166. awak.Checked = False
  167. brb.Checked = False
  168. busy.Checked = False
  169. online.Checked = True
  170. otf.Checked = False
  171. otl.Checked = False
  172. Form1.MSN.LocalState = 2
  173. Form1.im1.Picture = Form1.img.ListImages(5).Picture
  174. End Sub
  175. Private Sub otf_Click()
  176. DoEvents
  177. ao.Checked = False
  178. awak.Checked = False
  179. brb.Checked = False
  180. busy.Checked = False
  181. online.Checked = False
  182. otf.Checked = True
  183. otl.Checked = False
  184. Form1.MSN.LocalState = 50
  185. Form1.im1.Picture = Form1.img.ListImages(7).Picture
  186. End Sub
  187. Private Sub otl_Click()
  188. DoEvents
  189. ao.Checked = False
  190. awak.Checked = False
  191. brb.Checked = False
  192. busy.Checked = False
  193. online.Checked = False
  194. otf.Checked = False
  195. otl.Checked = True
  196. Form1.MSN.LocalState = 66
  197. Form1.im1.Picture = Form1.img.ListImages(6).Picture
  198. End Sub
  199. Function Load_List(num As Integer)
  200. List1.Clear
  201. x = Form1.MSN.list(num).Count
  202. For P = 1 To x - 1
  203. List1.AddItem Form1.MSN.list(num)(P).FriendlyName
  204. Next P
  205. If List1.ListCount = 0 Then List1.AddItem "None."
  206. End Function
  207.