公告版位

沒有痛苦 就沒有收穫
有問題歡迎來信詢問 jingluenwork@gmail.com
或者 可以私訊臉書 https://m.facebook.com/messages/thread/605788119912804/
 


目前分類:VB (107)

瀏覽方式: 標題列表 簡短摘要

我使用WebBrowser來搜尋網頁,但遇到URL解碼的問題,

像是輸入"我喜歡你"編譯成網頁code後會是 "%RTYUIJKHJK" 

文章標籤

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

最近在研究USB HID 使用VB撰寫,以下先提供範例.

HID Host Code in VB .Net (VB範例檔案)

文章標籤

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

以程式設計方式放置控制項

Button1.Location = New Point(100, 100)
文章標籤

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

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

範例

文章標籤

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

VB語法  Try...Catch...Finally 範例

Try
    Process.Start("http://www.microsoft.com")
Catch ex As Exception
    MsgBox("Can't load Web page" & vbCrLf & ex.Message)
End Try
文章標籤

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

VB  Select...Case語法範例   https://docs.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/select-case-statement

Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True.
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select
文章標籤

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

今天在搜尋visual studio序號價錢時 ,看到這篇文章介紹,目前,有個團隊研發「SharpDevelop」的開源程式,介面大概跟Visual Studio 有著87%像阿!!

目前已經用這麼做了一專案,目前上沒有任何相容性的問題,額外的參考檔也是妥妥的可以加入,如果要省去序號價錢的朋友可以考慮這款...

文章標籤

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

VB十六進制轉ASCII方法

    Public Function AsciiStringToHexString(ByVal asciiString As String) As String
        Dim ascii() As Byte = System.Text.Encoding.Default.GetBytes(asciiString)
        Dim count As Integer = ascii.Length
        Dim hexArray(count - 1) As String
        For idx As Integer = 0 To count - 1
            hexArray(idx) = ascii(idx).ToString("x2")
        Next
        Return String.Join(" ", hexArray)
    End Function


    Public Function HexStringToAsciiString(ByVal hexString As String) As String
        Dim array() As String = hexString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
        For idx As Integer = 0 To array.Length - 1
            array(idx) = Chr(CInt(String.Format("&h{0}", array(idx))))
        Next
        Return String.Join(String.Empty, array)
    End Function


    Private Sub tbxASCII_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxASCII.TextChanged
        If Me.ActiveControl Is sender Then
            tbxHex.Text = AsciiStringToHexString(tbxASCII.Text)
        End If
    End Sub

    Private Sub tbxHex_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxHex.TextChanged
        If Me.ActiveControl Is sender Then
            tbxASCII.Text = HexStringToAsciiString(tbxHex.Text)
        End If
    End Sub
End Class
文章標籤

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

Constant/value

Description

文章標籤

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

Label4.Text.PadLeft(8, "0")

 

文章標籤

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

VB - 控制項是什麼

文章標籤

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

VB - 找出所有panel內的lable名稱

文章標籤

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

VB -Textbox換行和不換行的方法

控制項右上角有個箭頭指過去

文章標籤

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

如標題 如何把中日英文變成URL編碼

在IE上 如果輸入中文 或許還可以搜尋 ,但遇上日文字就問號亂碼給你看,但其他瀏覽器事不會發生

文章標籤

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

專案環境VS2017

1.開頭加入

文章標籤

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

情境:假設 我有一個combox1 和一個 Textbox1 , 我選擇Combox1上面選項時要同時更動textbox1上的數值

方法如下:

文章標籤

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

My.Computer.FileSystem 物件的 DeleteFile 方法可讓您刪除檔案。 提供的選項包括︰是否要將已刪除的檔案傳送至 [資源回收筒]、是否要求使用者確認應該刪除檔案,以及使用者取消該作業時該怎麼辦。 刪除文字檔 使用 DeleteFile 方法來刪除檔案。 下列程式碼示範如何刪除名為 test.txt 的檔案。
My.Computer.FileSystem.DeleteFile("C:\test.txt")
刪除文字檔並要求使用者確認應該刪除檔案 使用 DeleteFile 方法來刪除檔案,並將 showUI 設定為 AllDialogs。 下列程式碼示範如何刪除名為 test.txt 的檔案,並讓使用者確認應該刪除檔案。
              My.Computer.FileSystem.DeleteFile("C:\test.txt",
        Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
        Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently,
        Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
文章標籤

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

VB - 如何判斷輸入是否為數字
if NOT IsNumeric(TextBox1.Text) Then
   MessageBox.Show ("欄位輸入必須為數值")
   Exit Sub
End If

文章標籤

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

 Public Function AsciiStringToHexString(ByVal asciiString As String) As String
        Dim ascii() As Byte = System.Text.Encoding.Default.GetBytes(asciiString)
        Dim count As Integer = ascii.Length
        Dim hexArray(count - 1) As String
        For idx As Integer = 0 To count - 1
            hexArray(idx) = ascii(idx).ToString("x2")
        Next
        Return String.Join(" ", hexArray)
    End Function


    Public Function HexStringToAsciiString(ByVal hexString As String) As String
        Dim array() As String = hexString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
        For idx As Integer = 0 To array.Length - 1
            array(idx) = Chr(CInt(String.Format("&h{0}", array(idx))))
        Next
        Return String.Join(String.Empty, array)
    End Function


    Private Sub tbxASCII_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxASCII.TextChanged
        If Me.ActiveControl Is sender Then
            tbxHex.Text = AsciiStringToHexString(tbxASCII.Text)
        End If
    End Sub

    Private Sub tbxHex_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxHex.TextChanged
        If Me.ActiveControl Is sender Then
            tbxASCII.Text = HexStringToAsciiString(tbxHex.Text)
        End If
    End Sub

文章標籤

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

在 DataGridView 中修改

'設定自動設定欄位高度

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