frmlinks.frm

这是一个家庭信息管理的小软件！

  Next Cnt
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = ""
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub Form_Resize()
 'Minimized
  If Me.WindowState = 1 Then
     If Minimize_To_Tray Then
        Set TrayArea1.Icon = Me.Icon
        TrayArea1.ToolTip = " Double-Click To Restore " & Me.Caption & " "
        TrayArea1.Visible = True
        Me.Hide
     End If
  End If
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub Form_Unload(Cancel As Integer)
  Load_Links
  Load frmMain
  frmMain.Enabled = True
  frmMain.Init_Main
  frmMain.Show
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = ""
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub LinksClose_Click()
  Unload Me
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub LinksClose_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = "Close"
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub lnkCancel_Click()
  UrlText.Locked = True
  Lnk_Edit = False
  UrlText.Text = ""
  lnkEdit.Enabled = False
  lnkSave.Enabled = False
  lnkCancel.Enabled = False
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub lnkCancel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = "Cancel Changes"
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub lnkEdit_Click()
  lnkEdit.Enabled = False
  UrlText.Locked = False
  Lnk_Edit = True
  
  UrlText.SetFocus
  lnkSave.Enabled = True
  lnkCancel.Enabled = True
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub lnkEdit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = "Edit [" & UrlText.Text & "]"
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub lnkSave_Click()
  WriteIniFile App.Path & "\FLinks.ini", Current_LoginName, Last_Link, UrlText.Text
  UrlText.Locked = True
  Lnk_Edit = False
  UrlText.Text = ""
  lnkEdit.Enabled = False
  lnkSave.Enabled = False
  lnkCancel.Enabled = False
  Call Load_TV_Links
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub lnkSave_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = "Save Changes"
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub mnuAbout_Click()
  Load frmAbout
  frmAbout.Show
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub mnuExit_Click()
  Call mnuRestore_Click
  Call LinksClose_Click
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub mnuHelp_Click()
  Load frmHelp
  frmHelp.Show
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub mnuRestore_Click()
  On Error Resume Next
  TrayArea1.Visible = False
  frmLinks.WindowState = 0
  frmLinks.Show
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub TrayArea1_DblClick()
  Call mnuRestore_Click
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub TrayArea1_MouseDown(Button As Integer)
  If Button = 2 Then
     PopupMenu mnuF
  End If
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub URL_TreeView_Collapse(ByVal Node As ComctlLib.Node)
  If Lnk_Edit = True Then
     Node.Expanded = True
     Exit Sub
  End If
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub URL_TreeView_Expand(ByVal Node As ComctlLib.Node)
  If Lnk_Edit = True Then
      Exit Sub
  End If
End Sub
'**********************************************************************
'**********************************************************************



'**********************************************************************
'**********************************************************************
Private Sub URL_TreeView_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim t As Node
  Set t = URL_TreeView.HitTest(X, Y)
  If t Is Nothing Then
     StatusBar1.Panels(1).Text = ""
     Exit Sub
    Else
     StatusBar1.Panels(1).Text = t.Text
  End If
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub URL_TreeView_NodeClick(ByVal Node As ComctlLib.Node)
  If Lnk_Edit = True Then
     lnkEdit.Enabled = False
     Exit Sub
  End If
  
  If Node.Key = "Root" Then
     lnkEdit.Enabled = False
    Else
     lnkEdit.Enabled = True
     Last_Link = Node.Key
     UrlText.Text = Node.Text
  End If
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub UrlText_GotFocus()
  UrlText.SelStart = 0
  UrlText.SelLength = Len(UrlText.Text)
End Sub
'**********************************************************************
'**********************************************************************


'**********************************************************************
'**********************************************************************
Private Sub UrlText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.Panels(1).Text = UrlText.Text
End Sub
'**********************************************************************
'**********************************************************************