vb.net程序代碼大全 vbnet function

求VB.net程序源代碼 繪圖板、二十一點游戲、計算器、井字棋游戲、屏幕保護程序等

說明：1.共有4個文本框其，其中三個是填入或輸出數據的（名稱分別是：txta txtb txtc），剩下的那個是符號(txtd)2.共7個按鈕，4個是符號按鈕，一個計算，一個清零．這是我弄的程序”袖珍計算器”代碼也是自己編寫的，代碼如下：通用聲明Dim j As Integer '定義j為整型

站在用戶的角度思考問題，與客戶深入溝通，找到南城網站設計與南城網站推廣的解決方案，憑借多年的經驗，讓設計與互聯網技術結合，創造個性化、用戶體驗好的作品，建站類型包括：成都網站設計、網站制作、企業官網、英文網站、手機端網站、網站推廣、域名與空間、虛擬空間、企業郵箱。業務覆蓋南城地區。

Private Sub Text1_Change()End SubPrivate Sub Command1_Click()

txtfuhao.Text = "+" '將”＋”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command2_Click()

txtfuhao.Text = "-" ''將”-”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()

txtfuhao.Text = "×" '將”×”顯示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()

txtfuhao.Text = "÷" 將”÷”'顯示到文本框txtfuhao.Text中

End Sub

Private Sub Command5_Click()

Dim a, b, c As Integer

a = Val(txta.Text) '將txta.Text里的內容轉化為數值型,然后再賦給a

b = Val(txtb.Text) '將txtb.Text里的內容轉化為數值型,然后再賦給b

If txtfuhao.Text = "+" Then '運算過程

c = a + b '運算過程

ElseIf txtfuhao.Text = "-" Then '運算過程

c = a - b '運算過程

ElseIf txtfuhao.Text = "÷" Then '運算過程

c = a / b '運算過程

ElseIf txtfuhao.Text = "×" Then '運算過程

c = a * b '運算過程

Else

j = MsgBox("您輸入的符號不正確", vbOKOnly, "錯誤信息")

End If

txtc.Text = c '將運算結果c輸出到文本框txtc中

End SubPrivate Sub Command6_Click()

txta.Text = "" '將空字符輸入到文本框內（刷新）

txtb.Text = "" '將空字符輸入到文本框內（刷新）

txtc.Text = "" '將空字符輸入到文本框內（刷新）

txtfuhao.Text = "" '將空字符輸入到文本框內（刷新）

End SubPrivate Sub Command7_Click()

End '結束程序

End SubPrivate Sub Form_Load()End Sub

VB.NET中的代碼

大概的過程：

Imports System.Data

Imports System.Data.SqlClient

--------------

Dim a As New SqlDataAdapter

Dim con As SqlConnection

con = New SqlConnection( "Persist Security Info=False;Integrated Security=SSPI;database=northwind;server=.;Connect Timeout=30")

con.Open()

a.SelectCommand = New SqlCommand("select * from table where c=1", con)

a.UpdateCommand = New SqlCommand("update table set b=2 where c=1", con)

a.DeleteCommand = New SqlCommand("delete from table where c=1", con)

a.InsertCommand = New SqlCommand("insert into table values (1,2,3)", con)

a.SelectCommand.ExecuteNonQuery()

a.UpdateCommand.ExecuteNonQuery()

a.DeleteCommand.ExecuteNonQuery()

a.InsertCommand.ExecuteNonQuery()

con.Close()

a.Dispose()

急求以下vb.net代碼

'我不會計時，因此下面代碼中沒有計時功能，要你自己去創建。

'Text1 As Label , Sui1 As Button , Sui2 As Button , Sui3 As Button , Fil1 As TextBox , Form1 As Form.

Public Class Form1

Private Sub Sui1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui1.Click

Dim i As Random = New Random

Dim iText As String = ""

For mn As Int16 = 1 To 30

Dim si As Int16 = i.Next(0, 25)

If si = 0 Then

iText += "a"

ElseIf si = 1 Then

iText += "b"

ElseIf si = 2 Then

iText += "c"

ElseIf si = 3 Then

iText += "d"

ElseIf si = 4 Then

iText += "e"

ElseIf si = 5 Then

iText += "f"

ElseIf si = 6 Then

iText += "g"

ElseIf si = 7 Then

iText += "h"

ElseIf si = 8 Then

iText += "i"

ElseIf si = 9 Then

iText += "j"

ElseIf si = 10 Then

iText += "k"

ElseIf si = 11 Then

iText += "l"

ElseIf si = 12 Then

iText += "m"

ElseIf si = 13 Then

iText += "n"

ElseIf si = 14 Then

iText += "o"

ElseIf si = 15 Then

iText += "p"

ElseIf si = 16 Then

iText += "q"

ElseIf si = 17 Then

iText += "r"

ElseIf si = 18 Then

iText += "s"

ElseIf si = 19 Then

iText += "t"

ElseIf si = 20 Then

iText += "u"

ElseIf si = 21 Then

iText += "v"

ElseIf si = 22 Then

iText += "w"

ElseIf si = 23 Then

iText += "x"

ElseIf si = 24 Then

iText += "y"

ElseIf si = 25 Then

iText += "z"

End If

Next

Text1.Text = iText

Sui1.Enabled = False

Sui2.Enabled = True

End Sub

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

Fil1.Enabled = False

Sui2.Enabled = False

Sui3.Enabled = False

End Sub

Private Sub Sui2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui2.Click

Fil1.Enabled = True

Sui3.Enabled = True

Fil1.Select()

End Sub

Private Sub Fil1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fil1.TextChanged

If Fil1.Text.Count = Fil1.MaxLength Then

Fil1.Enabled = False

End If

End Sub

Private Sub Sui3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sui3.Click

Fil1.Enabled = False

Sui2.Enabled = False

Sui1.Enabled = True

Sui3.Enabled = False

'完成結果。

MsgBox("suidu:" 30)

End Sub

End Class

跪求vb.net代碼

新建窗口，添加picture控件

利用line()方法畫線

line(開始x坐標,開始y坐標)-(結束x坐標,結束y坐標),線的顏色，畫線的方式(默認為線，B為矩形無填充，BF為填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上畫也可以調用窗口的line方法即form.line()

分享名稱：vb.net程序代碼大全 vbnet function
鏈接地址：http://m.kartarina.com/article32/dogigsc.html

成都網站建設公司_創新互聯，為您提供品牌網站制作、網站收錄、電子商務、定制網站、ChatGPT、網站設計公司

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯