VB.NET技巧_用程式碼自動生成按鈕技巧_VB特殊語法

-
今天要和大家介紹兩個程式語法技巧(時常用在簡化程式碼)

先備知識  特別語法介紹

1.

Array of Buttons

(用在程式自動生成按鈕 or 指定相同功能/事件任務的大量按鈕)

2.
With 某物件
    .屬性1
    .屬性2
    .XXX
    .
End With

使用時機

當你有一個物件
比方說
高樓大廈的物件好了
那此時你會需要實體化  然後賦予值

Dim dp As Skyscraper
dp = New Skyscraper()

那這棟公寓你可能要呼叫裏頭的屬性

假設

是針對 101 樓層的每一個樓

那你此時用以前第一種指定欄位寫法
就會不斷要寫很長的 Skyscraper

Skyscraper.B1 = "B1"
Skyscraper.F1 = "1"
Skyscraper.F2 = "2"
Skyscraper.F31 = "3"
.
.
.
Skyscraper.F101 = "101"

那此時可以替換為

With Skyscraper
    .B1 = "xxx"
    .F1 = "xxx"
    .F2 = "xxx"
 ....
   依此類推
End With


程式撰寫
練習1.示範使用程式產生元件

介面布局


程式

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 10
            Dim Btn As New Button
            Btn.Width = 30
            Btn.Height = 30
            Btn.Text = i
            Btn.Visible = True

            FloLayPan.Controls.Add(Btn)
        Next
    End Sub



End Class


這裡的主要特別語法
是
控件A.Controls.Add(某特定控件B)

執行結果就會因應使用loop跑了10次
生成10個寬高皆為30且按鈕上文字都自動指定
不用自己還要去右側旁邊屬性欄位自己一個一個對應
填寫輸入更改
可以節省時間又方便快速喔



那如果不要加在 FlowLayoutPanel 之中的話
可以直接添加在

視窗上(programmatically)
使用  Me來代表這個視窗


程式
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 10
            Dim Btn As New Button
            Btn.Width = 30
            Btn.Height = 30
            Btn.Text = i
            Btn.Visible = True

            FloLayPan.Controls.Add(Btn)
        Next

        Dim Btn2 As Button = New Button
        Btn2.Height = 65
        Btn2.Width = 100
        Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        Btn2.Top = Me.Height / 2 - Btn2.Height / 2

        'Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        'Btn2.Top = Me.Height - Btn2.Height * (3 / 2)
        Me.Controls.Add(Btn2)

    End Sub



End Class

當然相對位置的調整可以自己設定


那此時眼尖的人
會發現
視窗大小調動
並不會因應跟著做響應式變化
只會靜靜待在原處



此時到右上 添加 Resize事件區塊



更改Btn2為全域變數(提到最上方)
還有添加指定Button相對於視窗上位置之程式
在Resize區域

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Class Form1
    Dim Btn2 As Button = New Button
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 10
            Dim Btn As New Button
            Btn.Width = 30
            Btn.Height = 30
            Btn.Text = i
            Btn.Visible = True

            FloLayPan.Controls.Add(Btn)
        Next

        'Dim Btn2 As Button = New Button
        Btn2.Height = 65
        Btn2.Width = 100
        Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        Btn2.Top = Me.Height / 2 - Btn2.Height / 2

        'Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        'Btn2.Top = Me.Height - Btn2.Height * (3 / 2)
        Me.Controls.Add(Btn2)

    End Sub

    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        Btn2.Top = Me.Height / 2 - Btn2.Height / 2
    End Sub
End Class

這樣就會每次都跟著做響應式位置更新

練習2.按鈕、標籤元件(控件)陣列技巧


程式碼


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Class Form1
    Dim Btn2 As Button = New Button
    Dim Btn3(4) As Button 'array of 5 buttons (0~4)
    Dim labels(4) As Label 'display number of clicks for each button
    Dim count(4) As Integer 'track number of clicks for each button

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

        For k = 0 To Btn3.Length - 1
            Btn3(k) = New Button
            Btn3(k).Height = 75
            Btn3(k).Width = 100
            Btn3(k).Left = 120 * k + 20
            Btn3(k).Top = Me.Height / 2 - Btn3(k).Height * (3 / 2)

            Me.Controls.Add(Btn3(k))

            labels(k) = New Label
            labels(k).Height = 75
            labels(k).Width = 100
            labels(k).Left = 120 * k + 70
            labels(k).Top = Me.Height / 2 + Btn3(k).Height / 2
            labels(k).Text = 0
            Me.Controls.Add(labels(k))
        Next


        'Dim i As Integer
        'For i = 1 To 10
        '    Dim Btn As New Button
        '    Btn.Width = 30
        '    Btn.Height = 30
        '    Btn.Text = i
        '    Btn.Visible = True
        '
        '    FloLayPan.Controls.Add(Btn)
        'Next
        '
        ''Dim Btn2 As Button = New Button
        'Btn2.Height = 65
        'Btn2.Width = 100
        'Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        'Btn2.Top = Me.Height / 2 - Btn2.Height / 2
        '
        ''Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        ''Btn2.Top = Me.Height - Btn2.Height * (3 / 2)
        'Me.Controls.Add(Btn2)


    End Sub

    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        'Btn2.Left = Me.Width / 2 - Btn2.Width / 2
        'Btn2.Top = Me.Height / 2 - Btn2.Height / 2
    End Sub
End Class








留言

張貼留言

這個網誌中的熱門文章

經得起原始碼資安弱點掃描的程式設計習慣培養(五)_Missing HSTS Header

-
圖片
  接續前幾篇系列 經得起原始碼資安弱點掃描的程式設計習慣培養(一)_OWASP Top 10(十大網站安全風險)_學習寫更安全程式碼的網站推薦 經得起原始碼資安弱點掃描的程式設計習慣培養(二)_8.Insecure Deserialization ：不安全的反序列化漏洞ASP.NET處理方式 經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients 經得起原始碼資安弱點掃描的程式設計習慣培養(四)_1.Injection注入攻擊_SQL Injection)_order by 語句正確參數化套入 最近又遇到被若安掃描到高風險要修正的程式碼啦.... 一看這還真是搞不懂該怎麼修呢 HSTS(HTTP Strict Transport Security)  主要是一份國際標準規格 (RFC 6797) 的網際網路瀏覽安全機制， 用於宣告瀏覽器與伺服器之間通訊方式必須強制採用 TLS/SSL 加密通道。 只要從伺服器端送出一個 Strict-Transport-Security 標頭 (Header) 給瀏覽器，即可告知瀏覽器於未來的某段時間內一律使用 SSL 來和該網站連接 (設定可涵蓋所有子域名網站)， 一旦發生憑證失效情況，使用者將無法再瀏覽該網站，如此一來便可大幅減少中間人攻擊的問題發生。 再更白話一點 HSTS Header 就是負責將 http 強制轉為 https CheckMarx掃碼報告給的說明 ============================================================ 風險: 如果web config沒有設置HSTS表頭、"max-age"(有效期)不足一年， 或沒有設定"includeSubDomains"(包含所有子網域)，可能會使用戶容易遭受中間人攻擊。 發生原因: 許多使用者只要在瀏覽器的網址列輸入網域名稱(Domain Name)即可瀏覽網站， 並沒有輸入協定(Protocol)的名稱。 瀏覽器會自動假設使用者使用的是HTTP協定而不是有加密機制的HTTPS協定。 在第一次發出前往特定網站的請求時，攻擊者可以執行中間人攻擊並將用戶轉址到
閱讀完整內容

經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients

-
圖片
  近期新加入的功能code剛好也被CheckMarx掃出高風險部分的程式碼漏洞 我也踏到這個Issue啦 Cross Site Scripting(XSS)  第一種.Stored XSS 高風險 CheckMarx掃碼報告給的說明[Stored XSS] ============================================================ 風險: 攻擊者可以利用合法存取應用程式提交資料到資料庫。 當另一個使用者隨後存取該資料，網頁可能會被改寫且惡意腳本可能會被啟動。 發生原因: 從資料庫中的資料建立網頁。資料直接嵌入至HTML的頁面，利用瀏覽器顯示。 資料可能源自於其他使用者的輸入。 如果資料包含HTML片段或Javascript，使用者無法分辨是否為預期的頁面。 該漏洞主因為未先對嵌入資料庫中的資料進行編碼(Encode) 來預防瀏覽器將其當為HTML的格式而非純文字。 如何避免: 1.驗證所有資料，無論其來源為何。驗證應基於白名單：僅接受預定結構的資訊，而不是拒絕不良的樣式(Patterns)。  應確認：  ● 資料型態  ● 大小  ● 範圍  ● 格式  ● 期望值  2. 驗證無法取代編碼. 輸出嵌入之前，不論其來源， 將所有動態資料進行編碼. 編碼方式應該是上下文相關的. 例如: ● HTML內容使用HTML的編碼方式  ● HTML編碼特性是將資料輸出到特性的值 ● JavaScript的編碼方式為伺服器產生的Javascript  3.考慮使用ESAPI的編碼庫，或它的內置功能。對於舊版的ASP.NET，請考慮使用AntiXSS.  4.在HTTP類型對應的表頭， 明確定義整個頁面的字元編碼.  5. 設置 httpOnly 標誌於會期資訊，以防止利用XSS來竊取資訊. ============================================================ 這裡報告描述是指我對傳進來字串參數直接拋給DAL處裡的類別執行查詢 這裡缺乏對輸入進來的字串參數做一些查檢判斷 也建議在帶入時對參數也做一些html encode處理 這裡用AntiXSS來Encode 第二種.Reflected XSS All Clients 高風險 CheckMarx掃碼報告給的說明[Reflecte
閱讀完整內容

(2021年度)駕訓學科筆試準備題庫歸納分析_法規是非題

-
圖片
  若是出現 「必須」、「必需」、「...必...」、「應由」、「應先」、「應...」 則很高機率是圈 是非通常只要是如下字眼 「不必」+動詞 、「不需」「不須」、「可不」、「可以不」、「可立即」 有出現或符合的都選叉 (X)1.違規記點又不登記在駕照上，所以可以 不必理會 而任意違反交通規則。 (X)2.發生重大交通事故，為迅速恢復交通，清除現場，可 不必等待 肇事處理機關之指示，即可進行。 (X)3.道路駕駛練習，行車前 不必實施 車輛安全檢查，因為那是駕駛教練的工作。 (X)4.開車前， 不必檢查 機件安全，但在行駛中要隨時注意儀錶功能顯示，確保行車安全。 (X)5.煞車油若經常低於"MIN"線，只要添加即可， 不必到修理廠檢修 。 (X)6.冷卻系統只要副水箱在滿水位，主水箱 不必檢查 也不會有問題。 (X)7.引擎冷卻水內含有防凍液或防銹劑，可 不必更換 。 (X)8.儀錶板上的「燃油油量錶」之指針高度，已經降低至「E」點，橘色的「低油料警示燈」點亮時， 不必急著加油 ，到達目的地後再行補充燃油即可。 (X)9.有安全氣囊裝備的汽車， 不必繫 安全帶。 (X)10.煞車時有異音，是正常的情況， 不必檢修 。 (X)11.汽車定期檢驗 不必檢驗 車輛故障標誌，所以隨車不一定要帶車輛故障標誌。 (X)12.開車時 不必理會 義交之指揮，一切以號誌為主。 (X)13.汽車經過隧道，因隧道內燈光明亮視線良好，為省電可 不必開亮 頭燈。 (X)14.駕駛人只求技術優良，對遵守交通規則 不必太重視 。 (X)15.在開車前， 不必檢查 機件，以免耽誤行車時間。 (X)16.遇幼童專用車、校車、身心障礙者用特製車或教練車， 不必禮讓 。 (X)17.行車 不必攜帶 隨車工具。 (X)18.行車起駛前進， 不必顯示 方向燈。 (X)19.汽車通過鐵路平交道，前後兩車間， 不必保持 距離。 (X)20.夜間將車輛停放在無燈光設備及照明不清之道路時，亦 不必顯示 停車燈光或反光標識。 (X)21.在夜間或有霧靄、雨雪、風沙及晝晦時，把車輛停在路旁， 不必顯示 停車燈光或反光標識。 (X)22.汽車駕駛人，僅需具有優良駕駛技術， 不需 具備急救的常識和技能。 (X)23.汽車車身、引擎、底盤、電系等重要設備變更或調換時， 不需 向公路主管機關申請臨時檢驗。
閱讀完整內容