美好的一天，我正在使用visualstudio2019，我有這樣的功能：
Sub doQR()
Dim SallerName As String = gethexstring(1, "Bobs Records")
Dim VATReg As String = gethexstring(2, "310122393500003")
Dim DateTimeStr As String = gethexstring(3, "2022-04-25T15:30:00Z")
Dim TotalAmt As String = gethexstring(4, "10000.00")
Dim VatAmt As String = gethexstring(5, "150.00")
Dim decString As String = SallerName & VATReg & DateTimeStr & TotalAmt & VatAmt
Console.WriteLine(decString)
Console.WriteLine(HexToBase64(decString))
Console.Read()
End Sub
我想在文本框中顯示輸出（output.text）
謝謝，
uj5u.com熱心網友回復：
試試這個：
Sub doQR()
Dim SallerName As String = gethexstring(1, "Bobs Records")
Dim VATReg As String = gethexstring(2, "310122393500003")
Dim DateTimeStr As String = gethexstring(3, "2022-04-25T15:30:00Z")
Dim TotalAmt As String = gethexstring(4, "10000.00")
Dim VatAmt As String = gethexstring(5, "150.00")
Dim decString As String = SallerName & VATReg & DateTimeStr & TotalAmt & VatAmt
Console.WriteLine(decString)
Console.WriteLine(HexToBase64(decString))
Console.Read()
output.text = HexToBase64(decString)
End Sub
或者，如果您只想顯示decString，則替換此行：
output.text = HexToBase64(decString)
和：
output.text = decString
uj5u.com熱心網友回復：
把它放在一個文本框中
Sub doQR()
Dim SallerName As String = gethexstring(1, "Bobs Records")
Dim VATReg As String = gethexstring(2, "310122393500003")
Dim DateTimeStr As String = gethexstring(3, "2022-04-25T15:30:00Z")
Dim TotalAmt As String = gethexstring(4, "10000.00")
Dim VatAmt As String = gethexstring(5, "150.00")
Dim decString As String = SallerName & VATReg & DateTimeStr & TotalAmt & VatAmt
Console.WriteLine(decString)
Console.WriteLine(HexToBase64(decString))
Console.Read()
' do this
TextBox1.Text = decString
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/415359.html
標籤：
上一篇：如何使有狀態的API變得純粹