All Basic

Sanal Alemin En Büyük Vb Kod Arşivi

Visual Basic

Visual Basic, Microsoft tarafından, Basic programlama dili üzerinde geliştirilmiş, olay yönlendirmeli, üst seviye, nesne tabanlı ve görsel bir programlama dilidir.

AllBasic

Sistemde Kurulu Yazıcı Olup Olmadığını Kontrol Etmek

Sistemde Kurulu Yazıcı Olup Olmadığını Kontrol Etmek

Private Sub Yazıcı_Click()
         Dim msg$
         msg = YaziciAdi
         If Bak = "" Then
                  MsgBox ("Yazıcı kurulmamış")
                  Else
                           MsgBox ("Sistemde Kurulu Olan Yazıcı :" + msg)
End If
 
End Sub
         Function Yazici() As String
         On Local Error Resume Next
         Yazici = Printer.DeviceName
End Function

 


Hakikî dost, dostunun en sıkışık zamanında yardımına koşmaya hazır durumda bekler