form1.vb

Visual.Basic.NET实用编程百例-47.6M.zip

        '_Label1_3
        '
        Me._Label1_3.AutoSize = True
        Me._Label1_3.BackColor = System.Drawing.SystemColors.Control
        Me._Label1_3.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_3.ForeColor = System.Drawing.Color.Black
        Me.Label1.SetIndex(Me._Label1_3, CType(3, Short))
        Me._Label1_3.Location = New System.Drawing.Point(16, 200)
        Me._Label1_3.Name = "_Label1_3"
        Me._Label1_3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_3.Size = New System.Drawing.Size(122, 17)
        Me._Label1_3.TabIndex = 13
        Me._Label1_3.Text = "共有0个文件需要转换"
        '
        '_Label1_4
        '
        Me._Label1_4.BackColor = System.Drawing.SystemColors.Control
        Me._Label1_4.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.SetIndex(Me._Label1_4, CType(4, Short))
        Me._Label1_4.Location = New System.Drawing.Point(160, 20)
        Me._Label1_4.Name = "_Label1_4"
        Me._Label1_4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_4.Size = New System.Drawing.Size(56, 12)
        Me._Label1_4.TabIndex = 10
        Me._Label1_4.Text = "窗口标题"
        '
        '_Label1_2
        '
        Me._Label1_2.BackColor = System.Drawing.SystemColors.Control
        Me._Label1_2.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.SetIndex(Me._Label1_2, CType(2, Short))
        Me._Label1_2.Location = New System.Drawing.Point(160, 160)
        Me._Label1_2.Name = "_Label1_2"
        Me._Label1_2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_2.Size = New System.Drawing.Size(56, 12)
        Me._Label1_2.TabIndex = 9
        Me._Label1_2.Text = "背景颜色"
        '
        '_Label1_1
        '
        Me._Label1_1.BackColor = System.Drawing.SystemColors.Control
        Me._Label1_1.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.SetIndex(Me._Label1_1, CType(1, Short))
        Me._Label1_1.Location = New System.Drawing.Point(160, 113)
        Me._Label1_1.Name = "_Label1_1"
        Me._Label1_1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_1.Size = New System.Drawing.Size(56, 12)
        Me._Label1_1.TabIndex = 8
        Me._Label1_1.Text = "字体颜色"
        '
        '_Label1_0
        '
        Me._Label1_0.AutoSize = True
        Me._Label1_0.BackColor = System.Drawing.SystemColors.Control
        Me._Label1_0.Cursor = System.Windows.Forms.Cursors.Default
        Me._Label1_0.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.SetIndex(Me._Label1_0, CType(0, Short))
        Me._Label1_0.Location = New System.Drawing.Point(160, 67)
        Me._Label1_0.Name = "_Label1_0"
        Me._Label1_0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Label1_0.Size = New System.Drawing.Size(54, 17)
        Me._Label1_0.TabIndex = 7
        Me._Label1_0.Text = "字体大小"
        '
        'Command1
        '
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(448, 215)
        Me.Controls.Add(Me._Command1_3)
        Me.Controls.Add(Me._Text1_0)
        Me.Controls.Add(Me._Text1_3)
        Me.Controls.Add(Me._Text1_2)
        Me.Controls.Add(Me._Text1_1)
        Me.Controls.Add(Me.File1)
        Me.Controls.Add(Me.Dir1)
        Me.Controls.Add(Me.Drive1)
        Me.Controls.Add(Me._Command1_0)
        Me.Controls.Add(Me._Label1_3)
        Me.Controls.Add(Me._Label1_4)
        Me.Controls.Add(Me._Label1_2)
        Me.Controls.Add(Me._Label1_1)
        Me.Controls.Add(Me._Label1_0)
        Me.Location = New System.Drawing.Point(266, 213)
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "转换文本文件为网页"
        CType(Me.Command1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Text1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
#End Region

    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim Index As Short = Command1.GetIndex(eventSender)
        Dim Form2 As Object
        Dim a3 As Object
        Dim a2 As Object
        Dim textline As Object
        Dim a1 As Object
        Dim fileh As Object
        Dim filet As Object
        Dim file As Object
        Dim abcd As Object
        Dim j As Object
        Dim i As Object
        Dim te As Object
        Dim mypath As Object
        Select Case Index
            Case 0
                mypath = Dir1.Path
                te = VB.Right(mypath, 1)
                If te <> "\" Then mypath = mypath + "\"
                i = File1.Items.Count - 1
                For j = 0 To i
                    abcd = (File1.Items(j))
                    file = VB.Left(abcd, Len(abcd) - 4)

                    filet = mypath + abcd
                    fileh = mypath + file + ".html"

                    FileOpen(1, fileh, OpenMode.Output)
                    FileClose(1)

                    FileOpen(2, filet, OpenMode.Input)

                    Me.Text = "文件正在转换，请等待。。。。"
                    Command1(0).Enabled = False
                    FileOpen(1, fileh, OpenMode.Append)
                    a1 = "<Title>" & Text1(0).Text & "</Title> <META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=gb2312'> <body bgcolor=" & Text1(3).Text & ">  </body> <font color=" & Text1(2).Text & " Size=" & Text1(1).Text & " > "
                    PrintLine(1, a1)
                    FileClose(1)
                    Do While Not EOF(2) '
                        textline = LineInput(2)
                        FileOpen(1, fileh, OpenMode.Append)
                        a2 = textline + "<br>"
                        PrintLine(1, a2)
                        FileClose(1)
                    Loop
                    FileOpen(1, fileh, OpenMode.Append)
                    a3 = "</font>"
                    PrintLine(1, a3)
                    FileClose(1)

                    FileClose(2)
                Next
                Me.Text = "批量文本文件转为HTML文件"
                Command1(0).Enabled = True

            Case 1
                Form2.Show()
                Form2.Text1(0) = Me.Text1(0).Text
                Form2.Text1(1) = Me.Text1(1).Text
                Form2.Text1(3) = Me.Text1(2).Text
                Form2.Text1(14) = Me.Text1(3).Text
                Me.Hide()
            Case 3
                End
        End Select
    End Sub

    Private Sub Dir1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Dir1.Change
        File1.Path = Dir1.Path
        Label1(3).Text = "共有" & File1.Items.Count & "个文件需要转换"
    End Sub

    Private Sub Drive1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Drive1.SelectedIndexChanged
        Dir1.Path = Drive1.Drive
        Label1(3).Text = "共有" & File1.Items.Count & "个文件需要转换"
    End Sub


    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Label1(3).Text = "共有" & File1.Items.Count & "个文件需要转换"
    End Sub




End Class