2015年6月6日 星期六

vb.net 指令(手札)

vb.net 指令(手札)
1.*.sln / *.vbproj - 重新啟動VB.NET

2.格式 - 排版用也可鎖定控制項

3.SizeMode 屬性:
     1. Normal:由控制項的左上角放起。
     2. StretchImage:圖片隨控制項大小伸縮。
     3. AutoImage:控制項隨圖片大小伸縮。
     4. CenterImage:放在控制項的正中央。

4.end(關鍵字) - 終止程式執行

5.beep()

6.Rnd - 0~1的亂數

7.Cstr - 轉為字串

8.F5-偵錯(也有人說是開始執行)

9.簡繁Menu對照表






10. Sub From_Load - 雙擊 Form1外框即會產生

11.Randomize() - 為Rnd創建真正的隨機啟始點

12.DateTimePicker - 日期時間選取控件

13.System.Drawing.Image.FromFile - 讀取電腦資料
     PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\Calcultr.bmp")

14.CheckBox1 - 使用 Sub CheckBox1_CheckedChanged

15.ListBox 列表框 (這個用的比較少)
     用法:
                 Select Case ListBox1.SelectedIndex
            Case 0
                PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\harddisk.bmp")
            Case 1
                PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\printer.bmp")
            Case 2
                PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\satedish.bmp")
        End Select

'=============================================
          '向列表框中添加列表項
        ListBox1.Items.Add("Extra hard disk")
        ListBox1.Items.Add("printer")
        ListBox1.Items.Add("satellite disk")

16.LinkLabel1 - 瀏覽網頁
      '通過將 LinkVisited 設置為 True 來改變鏈接的顏色
        LinkLabel1.LinkVisited = True
        '使用 Process.Start 方法打開默認瀏覽器
        '使用雙 microsoft Press URL:
        System.Diagnostics.Process.Start("http://www.microsoft.com/learning/books/")

17.Label 框尺寸大小設定
     Label 內定AutoSize屬性為True要改False;其他就按一般正常調整。

18.Imports System.Math

上述計算在程式最頂端須先輸入
Imports System.Math


19.運算符號優先等級

















20.MaskedTextBox - 設定遮罩
     A.  < 自訂 > 時要將 使用Validating Type(U)勾勾取消
     B.  PasswordChar 只要輸入一個字元

21. 取得螢幕解析度
        Dim Screen_X
        Dim Screen_Y
        Screen_X=  Screen.PrimaryScreen Screen.PrimarBounds.Width
        Screen_Y=  Screen.PrimaryScreen Screen.PrimarBounds.Height
        MessageBox.Show("螢幕解析度" & Screen_X & "X" & Screen_Y)

22. 取得工作區域大小(桌面大小)
        Dim workarea_Hight As Integer
        Dim workerarea_width As Integer
        workarea_Hight = Screen.PrimaryScreen.WorkingArea.Width
        workerarea_width = Screen.PrimaryScreen.WorkingArea.Height
        MessageBox.Show("工作區域大小" & workerarea_width & "X" & workarea_Hight)

23.FormX置中
屬性中StartPosition 設定在CenterScreen


























































































沒有留言:

張貼留言