公告版位
沒有痛苦 就沒有收穫
有問題歡迎來信詢問 jingluenwork@gmail.com

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

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

情境:假設 我有一個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) 人氣()

DataGridView1 add the checkbox

1.點選datagridview1/ 選擇右邊屬性欄/按小按鈕

文章標籤

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

今天要介紹 如何知道DataGridView1有幾筆資料的語法, how many the datagirdview1 data?

GridView1.Rows.Count.ToString 
文章標籤

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

How to do VB random function ,example is

如何產生VB無重複的亂數,程式碼如下

Dim MyValue As Integer
MyValue = Int((6 * Rnd) + 1)    ' Generate random value between 1 and 6.
文章標籤

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

情境: 加入ComboBox1資料,使用code的方法

方法:

文章標籤

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

Listbox function and property setting list

以下整理所有listbox會使用到的語法功能

1.listbox總共有幾筆值

文章標籤

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

Remove the space to the left of DataGridView1

如何移除Datagirdview1 左邊的空格

如下圖,本來datagirdview1是這樣子

文章標籤

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

程式碼 再FORM1點兩下加入

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

文章標籤

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

1 2345