Visual Basic Visual Basic.net ve Programlama Dilleri  •  Visual Basic.NET  •  Visual Basic.NET Dersleri  •  PrintDialog
Sayfa: [1]   Aşağı git
« önceki sonraki »
  Yazdır  
Gönderen Konu: PrintDialog  (Okunma Sayısı 185 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
SoNaDaM_7
Moderatör
*


Karma: 5
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 287


Üyelik Bilgileri


« : 08 Ağustos 2008, 11:09:39 »



PrintDialog nesnesi ile TextBox taki stringi yazdıracağız. Formunuza 1 adet PrintDialog, Button ve TextBox ekleyin.

Public Class Form1
    Private WithEvents docToPrint As New Printing.PrintDocument
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
      PrintDialog1.AllowSomePages = True
      PrintDialog1.ShowHelp = True

      
      PrintDialog1.Document = docToPrint

      Dim result As DialogResult = PrintDialog1.ShowDialog()

      
      If (result = DialogResult.OK) Then
        docToPrint.Print()
      End If
    End Sub
    Private Sub document_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles docToPrint.PrintPage
      Dim printFont As New System.Drawing.Font _
      ("Arial", 12, System.Drawing.FontStyle.Regular)
      e.Graphics.DrawString(TextBox1.Text, printFont, _
      System.Drawing.Brushes.Black, 10, 10)
    End Sub
End Class
Logged
ѕυѕ ρυѕ ∂υямαм ѕαкιηℓιğιм∂єη,ιηѕαηıуєтℓє çözмєуı ѕєν∂ıgıм∂єη,ιℓℓє ∂є ѕαναşмαкѕα ηıуєтıη,¢єѕαяєтıη ναя мı уєηιк ∂üşмєує
programatör
Yeni Üye
*

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2


Üyelik Bilgileri


« Yanıtla #1 : Dün 19:04:46 »
çok acil shell kullanımı... aşağıdaki kodlarla bir openfiledialog pencresi açıp bu pencereden istediğim herhangi bir dosyayı açmak istiyorum.açacağım dosya resim ,word dosyası yada excel dosyası  ....... gibi  olabilir. ama shell komutunu çalıştıramadım.acil yardımlarınızı bekliyorum .kodları derleyecek biri varsa lütfen yardım etsin bu benim ilk mesajım oluyor...
 With OpenFileDialog1
            .Filter = "Word dosyası(*.doc)|*.doc|TÜM DOSYALAR(*.*)|*.*"
            .FilterIndex = 1
            .Title = "tarık boyar dosya açma denemesi"
        End With
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim dosyaadi As String
            dosyaadi = OpenFileDialog1.FileName
            Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE &dosyaadi ")

        End If
Logged
Sayfa: [1]   Yukarı git
  Yazdır  

« önceki sonraki »
 
Gitmek istediğiniz yer: