建站
咨詢
售后
建站咨詢
新聞中心
vb.NET 生成按鈕
Public Sub GenerateDynamiceButton()
從策劃到設計制作，每一步都追求做到細膩，制作可持續(xù)發(fā)展的企業(yè)網(wǎng)站。為客戶提供網(wǎng)站設計制作、網(wǎng)站設計、網(wǎng)站策劃、網(wǎng)頁設計、申請域名、虛擬空間、網(wǎng)絡營銷、VI設計、 網(wǎng)站改版、漏洞修補等服務。為客戶提供更好的一站式互聯(lián)網(wǎng)解決方案,以客戶的口碑塑造優(yōu)易品牌,攜手廣大客戶,共同發(fā)展進步。
'建立 坐標位置的變數(shù), 方便一會兒安排 自動生產(chǎn)的button 的位置
Dim y As Integer = 15
Dim x As Integer = 0
' 用for loop 來建立 這些button 做 18只button
For ButtonIndex As Integer = 0 To 17
' 建造新的 button
Dim MyButton As New Button
'設定這新的button 的闊度
MyButton.Width = 80
'設定這新的button 的高度
MyButton.Height = 20
'我們暫定每行有4個BUTTON, 當每行有多個4個BUTTON 時重設行距, 令到下一行的和這一行的距離有10 個PIXEL
' 和重設x 坐標` = 0, 令到位置由頭開始
If ButtonIndex Mod 4 = 0 Then
'設定 TOP 的 坐標位置令他可以和上一排的有10個PIXEL 的距離
y += MyButton.Height + 10
x = 0
End If
'設定文字 和 位置
' Set the text and set its top and left based on its dimensions and count
MyButton.Text = "My Button" ButtonIndex
'設定 TOP 的 坐標位置
MyButton.Top = y
'下面的CODE 可以令到這個BUTTON 和另一個BUTTON 有5個PIXEL 的距離
MyButton.Left = 26 + (x * (MyButton.Width + 5))
x += 1
'設定 BUTTON CLICK EVENT
AddHandler MyButton.Click, AddressOf MyButton_Click
'把button 加到 form 中
Me.Controls.Add(MyButton)
Next
End Sub
'處理 button click event
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
'pop up 一個自己button 的字的message
MsgBox(btn.Text)
VB點虐 的快捷鍵
1． F12：轉(zhuǎn)到定義；Shift+F12：轉(zhuǎn)到引用
2． F5：啟動；Ctrl+F5：開始執(zhí)行（不調(diào)試）；Shift+F5：停止調(diào)試
3． F7：查看代碼；Shift+F7：查看視圖設計器
4． Ctrl+Alt+L：解決方案資源管理器
5． Ctrl+Alt+J：對象瀏覽器
6． F4：顯示屬性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C類視圖
9． Alt+Enter：查看屬性
10．F10：逐過程調(diào)試
11．F11：逐語句調(diào)試
12．Ctrl+B：新斷點
13．Ctrl+Shift+F9：清除所有斷點
14．Ctrl+Shift+B生成解決方案
15．Shift+Alt+Enter：全屏
16．大綱顯示：Ctrl+M, Ctrl+M：切換大綱顯示展開；Ctrl+M, Ctrl+L：切換所有大綱顯示；Ctrl+M,Crtl+P停止大綱顯示；Ctrl+M, Ctrl+O：折疊到定義
17．智能感知：Ctrl＋J：列出成員；Ctrl+Shift+空格：參數(shù)信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭頭鍵：完成單詞
gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法'>VB點虐 字符轉(zhuǎn)換問題 字符（漢字、數(shù)字、字母、符號）>gb2312>unicode>utf8， 以及逆轉(zhuǎn)的方法
字符編碼轉(zhuǎn)換嗎?
1.字符與gb2312(gbk的子集)：
Public Function GBKEncode(ByVal sInput As String) As String
Dim ret_GBKEncode As String = ""
Dim i As Integer
Dim startIndex As Integer = 0
Dim endIndex As Integer
Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode編碼存儲的
endIndex = x.Length - 1
For i = startIndex To endIndex
ret_GBKEncode = "%" Hex(x(i))
Next
Return ret_GBKEncode
End Function
'GBK解碼
Public Function GBKDecode(ByVal sInput As String) As String
sInput = sInput.Replace("%", "")
Dim ret_GBKDecode As String = ""
Dim sLen As Integer = sInput.Length
Dim n As Integer = sLen \ 2
Dim sBytes(0 To n - 1) As Byte
'轉(zhuǎn)化為字節(jié)碼
For i As Integer = 1 To n
sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))
Next
'將字節(jié)碼轉(zhuǎn)化為字符串
ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)
Return ret_GBKDecode
End Function
2.Unicode字符串為UTF-8
Imports System.Text
Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
Dim bytes() As Byte
bytes = Encoding.UTF8.GetBytes(strData)
Return bytes
End Function
'這里可以類推出好幾種。
vb點虐 如何吧字符穿轉(zhuǎn)換成鍵盤碼
（1）在Form1上布置一個Label，用來顯示鍵盤碼
（2）窗體代碼如下
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Net
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Net
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?Object,
e?As?EventArgs)?Handles?MyBase.Load
KeyPreview?=?True
End?Sub
Private?Sub?Form1_KeyDown(sender?As?Object,
e?As?KeyEventArgs)?Handles?MyBase.KeyDown
Label1.Text?=?e.KeyValue
End?Sub
End?Class
按鍵盤上的鍵，Label1將顯示對應鍵的鍵盤碼
本文名稱：vb點虐 字符轉(zhuǎn)按鍵 vb字符型轉(zhuǎn)整型
文章來源：http://fisionsoft.com.cn/article/ddjcsoi.html
