擴充方法 (VB.NET)

擴充方法 (VB.NET)

Imports System.Runtime.CompilerServices

Module Module2
    Sub main()
        Dim s As String = "hello"
        s.print()
    End Sub
    Public Sub print(ByVal aStrig As String)
        Console.WriteLine(aStrig)
    End Sub
End Module

DATAGRIDVIEW載入DBF檔 (VB.NET)

DATAGRIDVIEW載入DBF檔 (VB.NET)

DBF檔請先匯出成dbase IV 格式


Dim cnn As OleDb.OleDbConnection
cnn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\POLLYPRO\DATA\NSAMPLE;Extended Properties=DBASE IV;")
Dim da As New OleDbDataAdapter("Select * From test.DBF", cnn)
Dim ds As New DataSet
da.Fill(ds)
GridView1.DataSource = ds.Tables(0)

列印的提示視窗如何不顯示

急著使用，所以也去翻了好多書，終於解決了，分享給大家！

使用 StandardPrintController 的類別就可以讓小提示方塊不出現

先在上面宣告

PrintDocument1.PrintController = New StandardPrintController()

如何關閉 PrintDocument 正在列印對話方塊

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Try
       Dim m_PrintDocument = New Printing.PrintDocument
       Dim printControl = New Printing.StandardPrintController ' 重點
       m_PrintDocument.PrintController = printControl  '重點
       m_PrintDocument.Print()
       End Sub

美甲,醫美 POS 專用系統 -- 正式完整上線

POS支援美甲,醫美的服務人員及業績統計和帳切割應算及虛帳部分,總算完工!!
底下為 : 出單 及當日 實際營收帳表  (真是..另類計算法)
----
歡迎  各行業 :美甲.醫美.美髮..等相關須統計個人業績的來電洽詢
可客製"專用"相關報表
----

藍眼鬍子(短帆) 2.0 ～2.7 公分

藍眼鬍子(短帆) 2.0 ～2.7 公分

1隻30元 , 1組10隻250元

---