邏輯生活: 4月 2020

2020年4月24日星期五

如何讓DataGridView每筆Row呈現不同的Cell Type

參考來源: [C#]如何讓DataGridView每筆Row呈現不同的Cell Type
--
C#
{
//如果是點在Value欄位的話才出現
if (e.ColumnIndex == 1)
{
DataGridViewRow tNowRow = dataGridView1.Rows[dataGridView1.CurrentRow.Index];

if (tNowRow.Cells["Type"].Value != null)
{
if (tNowRow.Cells["Type"].Value != null)
{
//如果是bool的話就變成CheckBox
if (tNowRow.Cells["Type"].Value.ToString() == "bool")
{
dataGridView1["Value", dataGridView1.CurrentRow.Index] = new DataGridViewCheckBoxCell();
}
//如果是combo的話就變成下拉選單
else if (tNowRow.Cells["Type"].Value.ToString() == "combo")
{
DataGridViewComboBoxCell tCell = new DataGridViewComboBoxCell();

for (int i = 0; i < tNowRow.Cells["AllowedValues"].Value.ToString().Split(';').Length; i++)
{
tCell.Items.Add(tNowRow.Cells["AllowedValues"].Value.ToString().Split(';')[i]);
}

dataGridView1["Value", dataGridView1.CurrentRow.Index] = tCell;
}
}
}
}
}

--
vbnet

If True Then
'如果是點在Value欄位的話才出現
If e.ColumnIndex = 1 Then
Dim tNowRow As DataGridViewRow = dataGridView1.Rows(dataGridView1.CurrentRow.Index)

If tNowRow.Cells("Type").Value IsNot Nothing Then
If tNowRow.Cells("Type").Value IsNot Nothing Then
'如果是bool的話就變成CheckBox
If tNowRow.Cells("Type").Value.ToString() = "bool" Then
dataGridView1("Value", dataGridView1.CurrentRow.Index) = New DataGridViewCheckBoxCell()
'如果是combo的話就變成下拉選單
ElseIf tNowRow.Cells("Type").Value.ToString() = "combo" Then
Dim tCell As New DataGridViewComboBoxCell()

Dim i As Integer = 0
While i < tNowRow.Cells("AllowedValues").Value.ToString().Split(";"C).Length
tCell.Items.Add(tNowRow.Cells("AllowedValues").Value.ToString().Split(";"C)(i))
i += 1
End While

dataGridView1("Value", dataGridView1.CurrentRow.Index) = tCell
End If
End If
End If
End If
End If

2020年4月23日星期四

visual studio 2019 系統管理員

參考設定 Windows 10 上強制Visual Studio以管理員身份運行
---
底下的設定過程截圖

2020年4月22日星期三

VBNET 將字串分割，並產生字串陣列

VBNET 將字串分割，並產生字串陣列
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' === 字串切割 ===
Dim MyString = "09/02/04 4:00p 21.9 21.9 21.8 69 15.9 3.6 NE 2.15 6.3　"
Dim charSeparators() As Char = {" "c}
Dim strResult() = MyString.Trim().Split(charSeparators, StringSplitOptions.RemoveEmptyEntries)

' === 顯示 ===
For i As Integer = 0 To strResult.Length - 1
Me.TextBox1.Text += strResult(i) + Environment.NewLine
Next
End Sub
End Class

-------
另外微軟又有調整新的用法
Strings.Split(String, String, Int32, CompareMethod) 方法

Dim testString As String = "apple pear banana "
Dim testArray() As String = Split(testString)
' testArray holds {"apple", "", "", "", "pear", "banana", "", ""}
Dim lastNonEmpty As Integer = -1
For i As Integer = 0 To testArray.Length - 1
If testArray(i) <> "" Then
lastNonEmpty += 1
testArray(lastNonEmpty) = testArray(i)
End If
Next
ReDim Preserve testArray(lastNonEmpty)
' testArray now holds {"apple", "pear", "banana"}