Viet Code

Vit Code

thdang@tlnet.com.vn

[ Home Trang u ] [ Thit k giao din ]

Form1

Option Explicit

Khai bo cc bin ton cc cho chng trnh

Public WTitle As String
'Tiu  ca file HTML

Public BeginText As String
'Dng vn bn xut hin  u danh sch

Public EndText As String
'Dng vn bn xut hin  cui danh sch

Public AlignText As String
'Canh l cc lin kt, gm "Left", "Right", "Center"

Public Launch As Integer
'Xem file sau khi to xong. Gm 3 gi tr: 1-Xem bng IE. 2-Xem bng Notepad. 3-Khng xem file sau khi to xong

- Bt u to file HTML theo ng dn t lblPath & Text1 c lu gi bng bin F. M file  ghi theo dng TextOnly s cha cc HTML tags theo c php cc lin kt (Link).

Do trong file HTML c s dng kh nhiu du nhy kp ("). M trong Visual Basic cng c dng,  trnh ln ln ta nn dng chr(34) thay cho du nhy kp.

Private Sub cmdCreate_Click()
 On Error GoTo ErrHandle
 Form1.MousePointer = 11
 Dim i As Integer
 Dim k
 Dim F As String
 F = lblPath.Caption & Trim(Text1)
 'Ly ng dn v tn tp tin
 Open F For Output As #1
 Print #1, "<html>"
 Print #1, "<Title>"; WTitle; "</Title>"
 'Ghi tiu  ca trang Web
 Print #1, "<body>"
 Print #1, ""
 Print #1, ""; BeginText & " ";
 'Ghi dng tiu   u danh sch
 Print #1, UCase(Dir1.Path); ""
 'Ghi ng dn
 ' Bt u ghi cc lin kt
 For i = 0 To List1.ListCount - 1
 'Ghi cc lin n cc file  chn
 If List1.SelCount <> 0 Then
 If List1.Selected(i) = True Then
 Print #1, "<a href="; Chr(34);
 Print #1, List1.List(i); Chr(34);
 Print #1, ">"; File1.List(i); "</a>"
 End If
 Else
 'Nu khng chn file no xem nh chn tt c
 Print #1, "<a href="; Chr(34);
 Print #1, List1.List(i); Chr(34);
 Print #1, ">"; File1.List(i); "</a>"
 End If
 Next i
 Print #1, ""; EndText
 'Ghi dng vn bn  cui danh sch
 Print #1, " Total: " & _
 IIf(List1.SelCount = 0, List1.ListCount, List1.SelCount) _
 & " link(s)."; ""
 'In tng s cc lin kt trong trang Web
 Print #1, "</body></html>"
 Close #1
 'ng danh sch
 Select Case Launch
 Case 1: k = Shell("explorer.exe " & F, vbNormalFocus)
 'Gi Internet Explorer
 Case 2: k = Shell("notepad.exe " & F, vbNormalFocus)
 'Gi Notepad
 End Select
 Form1.MousePointer = 0
 Text1.SetFocus
 Exit Sub
 ErrHandle:
 'X l khi c li
 Form1.MousePointer = 0
 MsgBox "Can not create file.", vbCritical
 Drive1.SetFocus
End Sub

'B chn tt c cc file trong danh sch

Private Sub cmdDeselect_Click()
    Dim i As Integer
    For i = List1.ListCount - 1 To 0 Step -1
        List1.Selected(i) = False
    Next i
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

'Chn tt c cc file trong danh sch

Private Sub cmdSelect_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        List1.Selected(i) = True
    Next i
    List1.Refresh
End Sub

'Gi Form2

Private Sub cmdSettings_Click()
Form2.Show 1
End Sub

'X l khi ngi dng g vo cc k hiu * ?  lc file

Private Sub Combo1_Change()
    On Error GoTo ErrHandle
    Dim i As Integer
    File1.Pattern = Combo1.Text
    'Add to List Box
    List1.Clear
    For i = 0 To File1.ListCount - 1
        List1.AddItem File1.List(i), i
    Next i
    ErrHandle:
End Sub

'X l khi ngi dng chn cc loi file (c sn) trong Combobox

Private Sub Combo1_Click()
    Dim i As Integer
    File1.Pattern = Combo1.Text
    'Add to List Box
    AddToList
End Sub

'X l khi ngi dng chn  a, th mc

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    lblPath.Caption = IIf(Len(Dir1.Path) = 3, Dir1.Path, Dir1.Path + "\")
    AddToList
End Sub

Private Sub Drive1_Change()
    On Error GoTo ErrHandle
    Dir1.Path = Drive1.Drive
    ErrHandle:
End Sub

Private Sub Form_Load()
    Me.Caption = "Indexer - " & "v" & App.Major & "." & App.Minor & App.Revision
    WTitle = "Indexer - List of Directory"
    BeginText = ""
    EndText = ""
    AlignText = "Left"
    Launch = 1
    File1.Path = Dir1.Path
    lblPath.Caption = IIf(Len(Dir1.Path) = 3, Dir1.Path, Dir1.Path + "\")
    AddToList
End Sub

'Np cc file t FileListBox sang ListBox,  trnh tnh trng xut hin lin kt n chnh file va to (khi file ny  c to ra trc ) ti phi dng thm Kill() nu file  trng tn vi file sp to.

Public Sub AddToList()
    Dim i As Integer
    On Error Resume Next
    Dim F As String
    F = lblPath.Caption & Trim(Text1)
    Kill (F)
    File1.Refresh
    List1.Clear
    For i = 0 To File1.ListCount - 1
        List1.AddItem File1.List(i), i
    Next i
End Sub

'T ng select vn bn mi khi Textbox nhn c focus,  tin cho ngi dng.

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

Form2

Option Explicit

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
    Form1.WTitle = txtTitle.Text
    'Gn bin WTitle bng ni dung ca txtTitle
    Form1.BeginText = txtBegin.Text
    'Gn bin BeginText bng ni dung ca txtBegin
    Form1.EndText = txtEnd.Text
    'Gn bin EndText bng ni dung ca txtEnd
    Form1.Launch = IIf(optIE.Value, 1, IIf(optNod.Value, 2, 3))
    'Nu optIE c chn th gn Launch = 1, optNod -> 2, optNone -> 3
    Form1.AlignText = cmbAlign.Text
    Unload Me
End Sub

'T ng select vn bn mi khi Textbox nhn c focus,  tin cho ngi dng.

Private Sub txtBegin_GotFocus()
txtBegin.SelStart = 0
txtBegin.SelLength = Len(txtBegin)
End Sub

Private Sub txtEnd_GotFocus()
txtEnd.SelStart = 0
txtEnd.SelLength = Len(txtEnd)
End Sub

Private Sub txtTitle_GotFocus()
txtTitle.SelStart = 0
txtTitle.SelLength = Len(txtTitle)
End Sub

Chng trnh mu

[ Home Trang u ] [ Thit k giao din ]

chu nht, thang hai 03, 2002 05:50:49 CH
Nguyn H Thin ng

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com