home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD100839222000.psc / frmICQMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-23  |  7.9 KB  |  255 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmICQMain 
  4.    Caption         =   "Medievilz ICQ"
  5.    ClientHeight    =   4500
  6.    ClientLeft      =   165
  7.    ClientTop       =   735
  8.    ClientWidth     =   3120
  9.    Icon            =   "frmICQMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   300
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   208
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin MSComctlLib.ImageList imgList 
  16.       Left            =   2385
  17.       Top             =   3510
  18.       _ExtentX        =   1005
  19.       _ExtentY        =   1005
  20.       BackColor       =   -2147483643
  21.       ImageWidth      =   16
  22.       ImageHeight     =   16
  23.       MaskColor       =   12632256
  24.       _Version        =   393216
  25.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  26.          NumListImages   =   2
  27.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  28.             Picture         =   "frmICQMain.frx":0442
  29.             Key             =   ""
  30.          EndProperty
  31.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  32.             Picture         =   "frmICQMain.frx":0896
  33.             Key             =   ""
  34.          EndProperty
  35.       EndProperty
  36.    End
  37.    Begin MSComctlLib.StatusBar StatusBar 
  38.       Align           =   2  'Align Bottom
  39.       Height          =   300
  40.       Left            =   0
  41.       TabIndex        =   0
  42.       Top             =   4200
  43.       Width           =   3120
  44.       _ExtentX        =   5503
  45.       _ExtentY        =   529
  46.       _Version        =   393216
  47.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  48.          NumPanels       =   2
  49.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  50.             AutoSize        =   1
  51.             Text            =   "OFFLINE"
  52.             TextSave        =   "OFFLINE"
  53.          EndProperty
  54.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  55.          EndProperty
  56.       EndProperty
  57.    End
  58.    Begin MSComctlLib.TreeView tvwContact 
  59.       Height          =   3840
  60.       Left            =   0
  61.       TabIndex        =   1
  62.       Top             =   0
  63.       Width           =   2850
  64.       _ExtentX        =   5027
  65.       _ExtentY        =   6773
  66.       _Version        =   393217
  67.       Style           =   7
  68.       FullRowSelect   =   -1  'True
  69.       ImageList       =   "imgList"
  70.       Appearance      =   1
  71.    End
  72.    Begin VB.Menu mnuFile 
  73.       Caption         =   "&File"
  74.       Begin VB.Menu mnuNew 
  75.          Caption         =   "&New"
  76.          Enabled         =   0   'False
  77.       End
  78.       Begin VB.Menu mnuOpen 
  79.          Caption         =   "&Open"
  80.          Enabled         =   0   'False
  81.       End
  82.       Begin VB.Menu mnuSaveAs 
  83.          Caption         =   "&Save As..."
  84.          Enabled         =   0   'False
  85.       End
  86.       Begin VB.Menu sep00 
  87.          Caption         =   "-"
  88.       End
  89.       Begin VB.Menu mnuLogin 
  90.          Caption         =   "&Login"
  91.       End
  92.       Begin VB.Menu mnuStatus 
  93.          Caption         =   "My &Status"
  94.          Begin VB.Menu mnuStatusOnline 
  95.             Caption         =   "&Online"
  96.          End
  97.          Begin VB.Menu mnuStatusInvisible 
  98.             Caption         =   "&Invisible"
  99.          End
  100.          Begin VB.Menu mnuStatusAway 
  101.             Caption         =   "&Away"
  102.          End
  103.          Begin VB.Menu mnuStatusNA 
  104.             Caption         =   "&Extended Away"
  105.          End
  106.          Begin VB.Menu mnuStatusOccupied 
  107.             Caption         =   "&Busy"
  108.          End
  109.          Begin VB.Menu mnuStatusDND 
  110.             Caption         =   "&Do Not Disturb"
  111.          End
  112.       End
  113.       Begin VB.Menu sep2 
  114.          Caption         =   "-"
  115.       End
  116.       Begin VB.Menu mnuOpenRecvFolder 
  117.          Caption         =   "Open &Received Files folder"
  118.          Enabled         =   0   'False
  119.       End
  120.       Begin VB.Menu mnuProperties 
  121.          Caption         =   "&Properties"
  122.          Enabled         =   0   'False
  123.       End
  124.       Begin VB.Menu sep3a 
  125.          Caption         =   "-"
  126.       End
  127.       Begin VB.Menu mnuClose 
  128.          Caption         =   "&Close"
  129.       End
  130.    End
  131.    Begin VB.Menu mnuSend 
  132.       Caption         =   "&Contacts"
  133.       Begin VB.Menu muListManager 
  134.          Caption         =   "&Lists Manager"
  135.          Enabled         =   0   'False
  136.       End
  137.       Begin VB.Menu mnuSearch 
  138.          Caption         =   "&Search User"
  139.          Enabled         =   0   'False
  140.       End
  141.       Begin VB.Menu mnuViewProfile 
  142.          Caption         =   "View &Profile"
  143.          Enabled         =   0   'False
  144.       End
  145.       Begin VB.Menu mnuAddContact 
  146.          Caption         =   "&Add User"
  147.       End
  148.       Begin VB.Menu sep 
  149.          Caption         =   "-"
  150.       End
  151.       Begin VB.Menu mnuSendMessage 
  152.          Caption         =   "Send &Message"
  153.       End
  154.       Begin VB.Menu mnuSendURL 
  155.          Caption         =   "Send &Web URL"
  156.       End
  157.       Begin VB.Menu mnuSendFile 
  158.          Caption         =   "Send &File"
  159.          Enabled         =   0   'False
  160.       End
  161.       Begin VB.Menu mnuSendChat 
  162.          Caption         =   "Request &Chat"
  163.          Enabled         =   0   'False
  164.       End
  165.       Begin VB.Menu mnuSendEmail 
  166.          Caption         =   "Send E-&Mail"
  167.          Enabled         =   0   'False
  168.       End
  169.    End
  170.    Begin VB.Menu mnuTools 
  171.       Caption         =   "&Tools"
  172.       Begin VB.Menu mnuCheckMail 
  173.          Caption         =   "Check E-mail"
  174.          Enabled         =   0   'False
  175.       End
  176.       Begin VB.Menu sep6 
  177.          Caption         =   "-"
  178.       End
  179.       Begin VB.Menu mnuOptions 
  180.          Caption         =   "&Options"
  181.          Enabled         =   0   'False
  182.       End
  183.    End
  184. Attribute VB_Name = "frmICQMain"
  185. Attribute VB_GlobalNameSpace = False
  186. Attribute VB_Creatable = False
  187. Attribute VB_PredeclaredId = True
  188. Attribute VB_Exposed = False
  189. Public NewUser As Boolean
  190. Public ImageAnimateNumber As Integer
  191. Private Sub Form_Load()
  192.   Me.Show
  193.   UI_LoadLastSaved
  194.   UI_Init
  195. End Sub
  196. Private Sub Form_Resize()
  197.   StatusBar.Top = 0
  198.   tvwContact.Width = frmICQMain.ScaleWidth
  199.   If StatusBar.Top > 0 Then
  200.     tvwContact.Height = StatusBar.Top
  201.   Else
  202.     tvwContact.Height = 0
  203.   End If
  204. End Sub
  205. Private Sub Form_Unload(Cancel As Integer)
  206.   UDPSend_Logout
  207. End Sub
  208. Private Sub mnuAddContact_Click()
  209.   Load frmAddContact
  210. End Sub
  211. Private Sub mnuClose_Click()
  212.   If ICQEngine.ConnectionState = ICQ_Connected Then UDPSend_Logout
  213.   End
  214. End Sub
  215. Private Sub mnuLogin_Click()
  216.   If mnuLogin.Caption = "&Login" Then
  217.     mnuLogin.Caption = "&Logout"
  218.     TCPSock_Init
  219.     UDPSend_Login
  220.   Else
  221.     mnuLogin.Caption = "&Login"
  222.     UDPSend_Logout
  223.   End If
  224. End Sub
  225. Private Sub mnuSendMessage_Click()
  226.   Load frmMessageSend
  227. End Sub
  228. Private Sub mnuSendURL_Click()
  229.   Load frmMessageSend
  230. End Sub
  231. Private Sub mnuStatusAway_Click()
  232.   UDPSend_ChangeStatus STATUS_AWAY
  233.   frmICQMain.StatusBar.Panels(1).Text = Debug_OnlineStatusName(STATUS_AWAY)
  234. End Sub
  235. Private Sub mnuStatusDND_Click()
  236.   UDPSend_ChangeStatus STATUS_DND
  237.   frmICQMain.StatusBar.Panels(1).Text = Debug_OnlineStatusName(STATUS_DND)
  238. End Sub
  239. Private Sub mnuStatusInvisible_Click()
  240.   UDPSend_ChangeStatus STATUS_INVISIBLE
  241.   frmICQMain.StatusBar.Panels(1).Text = Debug_OnlineStatusName(STATUS_INVISIBLE)
  242. End Sub
  243. Private Sub mnuStatusNA_Click()
  244.   UDPSend_ChangeStatus STATUS_NA
  245.   frmICQMain.StatusBar.Panels(1).Text = Debug_OnlineStatusName(STATUS_NA)
  246. End Sub
  247. Private Sub mnuStatusOccupied_Click()
  248.   UDPSend_ChangeStatus STATUS_OCCUPIED
  249.   frmICQMain.StatusBar.Panels(1).Text = Debug_OnlineStatusName(STATUS_OCCUPIED)
  250. End Sub
  251. Private Sub mnuStatusOnline_Click()
  252.   UDPSend_ChangeStatus STATUS_ONLINE
  253.   frmICQMain.StatusBar.Panels(1).Text = Debug_OnlineStatusName(STATUS_ONLINE)
  254. End Sub
  255.