公告版位

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

目前分類:VB , C# (107)

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

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) 人氣()

他的語法格式是:

Filesystem.rename(a,b)

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

如何尋找同一資料夾副檔名相同的檔案?

 

Dim FileName As String
Dim result(100) As String
Dim count As Integer

    FileName = Dir("C:\temp\*.txt", vbNormal)
    count = 0
    Do While FileName <> ""
     Debug.Print FileName
     result(count) = FileName
     FileName = Dir
     count = count + 1
    Loop

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

     Dim sample_voltage(5800) As Integer

Array.Clear(sample_voltage, 0, 1024) ' 清除矩陣

文章標籤

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

這函數超好用啊!測試code用的到

Dim RR(5) As Byte
Dim rnd As New Random()
rnd.NextBytes(RR)
Textbox1.text=RR(0)
Textbox1.text=RR(1)
文章標籤

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

1.這是送一個指令的方法 

SerialPort2.Write(CMD.Text & Chr(&HD))

文章標籤

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

一些不錯的VB資源站

 

文章標籤

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

1.下載HtmlAgilityPack XPath Finder

官網下載 https://archive.codeplex.com/?p=hapxpathfinder

文章標籤

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

1. import

Imports HtmlAgilityPack
文章標籤

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