目前日期文章:20080710 (4)

瀏覽方式: 標題列表 簡短摘要
今天做了 圖片預覽程式

需要 一個Button 一個 PictureBox 一個 OpenFileDialog

程式碼如下

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
picShow.ImageLocation = OpenFileDialog1.FileName
End If
End Sub
End Class

一些細微可自行調整

完成後 如下圖




放圖後


ip612256374 發表在 痞客邦 留言(0) 人氣()

今天做了 小時鐘

需要 1個 Label 1個 Timer

程式碼 如下
Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now '在Timer1上點滑鼠左鍵兩下進入此程式區塊
End Sub
End Class

完成後 如下圖


ip612256374 發表在 痞客邦 留言(0) 人氣()

今天 做了 簡單的字體改變應用程式
需要
一個 TextBox 三個 GroupBox 其中兩個 GroupBox 內各有 兩個 RadioButton 另一個GroupBoxs
內有三個 RadioButton

這樣做

以下為程式碼

Public Class Form1

Private Sub rbtType1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtType1.CheckedChanged
txtShow.Font = New Font("新細明體", 20, txtShow.Font.Style)

End Sub

Private Sub rbtType2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtType2.CheckedChanged
txtShow.Font = New Font("標偕體", 20, txtShow.Font.Style)
End Sub

Private Sub rbtColorRed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtColorRed.CheckedChanged
txtShow.ForeColor = Color.Red
End Sub

Private Sub rbtColorGreen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtColorGreen.CheckedChanged
txtShow.ForeColor = Color.Green
End Sub

Private Sub rbtColorBlue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtColorBlue.CheckedChanged
txtShow.ForeColor = Color.Blue

ip612256374 發表在 痞客邦 留言(0) 人氣()

今天用VB 做了一個 猜數字的小程式

需要 一個 按鈕 就夠了 其他可自行附加


以下為程式碼
Public Class 猜數字

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Guess As Integer
Guess = Val(InputBox("請輸入數字1-100"))
Do Until Guess = 66 '66為答案
If Guess > 66 Then
MsgBox("猜小一點") '猜太大了,提示使用者猜小一點
Guess = Val(InputBox("請輸入數字1-100"))
Else
MsgBox("猜大一點") '猜太小了,提示使用者猜大一點
Guess = Val(InputBox("請輸入數字1-100"))
End If
Loop
MsgBox("恭喜,猜中了")
MsgBox("浤珉說,很強歐")
End Sub
End Class

密碼預設為 66

ip612256374 發表在 痞客邦 留言(0) 人氣()