Lv 7
發問時間: 電腦與網際網路程式設計 · 1 0 年前

請問誰能教我寫這個VB程式~~(急)??

我需要寫一個看式簡單的VB程式~~但不知道如何下手!!

請各位高手幫我撰寫一個程式碼(不要太簡單或精簡版~最好是初學者寫的那種)讓我慢慢了解裡面的意思!!

題目如圖:

http://f4.wretch.yimg.com/luck610/104/1465025825.j...

圖片參考:http://f4.wretch.yimg.com/luck610/104/1465025825.j...

3 個解答

評分
  • 1 0 年前
    最佳解答

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Form2.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    If RadioButton1.Checked = True Then

    TextBox1.TextAlign = HorizontalAlignment.Left

    ElseIf RadioButton2.Checked = True Then

    TextBox1.TextAlign = HorizontalAlignment.Center

    Else

    TextBox1.TextAlign = HorizontalAlignment.Right

    End If

    Dim style As Int16

    style = 0

    If CheckBox1.Checked = True Then

    style += 1

    End If

    If CheckBox2.Checked = True Then

    style += 2

    End If

    If CheckBox3.Checked = True Then

    style += 4

    End If

    TextBox1.Font = New Font(Me.Font, style)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    If MessageBox.Show("確定離開?", "關閉程式", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

    Close()

    End If

    End Sub

    End Class

    Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Form1.TextBox1.Text = TextBox1.Text

    Close()

    End Sub

    End Class

    2008-11-29 02:41:05 補充:

    建議先到網路爬聞自己寫過一遍不行在上來問!

    這樣對自己寫程式的能力較會進步

    參考資料: 自己
  • 1 0 年前

    這.........要寫的沒幾行..

  • 1 0 年前

    基本上 我剛剛有翻書 寫了一下 試看看

    文字顯示方面 用 richtextbox 去做

    字的靠左右 文件是用 radiobutton

    粗體那些 則是用 checkbox

    輸入文字 用 button ok吧 至於輸入文字用 form 來做

    顏色方面 那個...翻書一下 應該不難

    相信你應該會了解 以下是程式碼 小小的研究看看吧

    我已經算貼很完整了 沒改名稱 所以元件你比較好找

    大致上 你應該可以做出來了@@

    靠左 置中 靠右

    If RadioButton1.Checked = True Then

    RichTextBox1.SelectionAlignment = HorizontalAlignment.Left

    End If (這是靠左的)

    至於其他的 改一下便可

    粗體

    If CheckBox1.Checked Then

    RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style Or FontStyle.Bold)

    Else

    RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style And (Not FontStyle.Bold))

    End If

    斜體

    If CheckBox2.Checked Then

    RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style Or FontStyle.Italic)

    Else

    RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style And (Not FontStyle.Italic))

    End If

    底線

    If CheckBox3.Checked Then

    RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style Or FontStyle.Underline)

    Else

    RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style And (Not FontStyle.Underline))

    End If

    參考資料: 自己
還有問題?馬上發問,尋求解答。