Visio, Visual Basic .NET ile otomatikleþtirme

• Bir dizide bulunan verileri esas alýyorsa Visio çizim sayfasýna basit akýþ grafiði çizer.
• Sayfa adlarý.
• Belgeyi kaydeder.

Örnek Visual Basic .NET uygulama oluþturmak için gereken adýmlarý

1. Microsoft Visual Studio .NET'i baþlatýn. Dosya menüsünde Yeni'yi týklatýn ve Project ' ý týklatýn. Proje türleri altýnda) Visual Basic Projects ' ý týklatýn ve þablonlarý altýnda Windows uygulamasý ' ý týklatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Visio nesne kitaplýðýna bir baþvuru ekleyin. Bunu yapmak için þu adýmlarý izleyin:
   1. Proje) menüsünde Add Reference ' ý týklatýn.
   2. COM sekmesinde, aþaðýdaki seçeneklerden birini týklatýn ve Seç ' i týklatýn:
      • Visio 2007 için Microsoft Visio 12.0 tür kitaplýðý týklatýn.
      • Visio 2003 için Microsoft Visio 11.0 tür kitaplýðý týklatýn.
      • Visio 2002 için Microsoft Visio 2002 için tür kitaplýðý týklatýn.
      Not Önceden yapmadýysanýz, Microsoft karþýdan yükleme ve Microsoft Office XP Primary ýnterop Assemblies (Pýa) yüklemek önerir.
      
      Office XP Pýa hakkýnda'daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
      328912  (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP ana birlikte çalýþma derlemeleri (PIA) karþýdan yüklenebilir
   3. Seçimlerinizi kabul etmek için Tamam <a0>Baþvuru Ekle</a0> iletiþim kutusunda týklatýn. Seçtiðiniz kitaplýklar için sar?c?lar? oluþturmak isteyen bir ileti alýrsanýz, Evet ' i týklatýn.
3. Görünüm menüsünde ToolBox ' ý týklatýn. Bir düðme Form1'e ekleyin.
4. Button1</a1> çift týklatýn. Kod penceresi Click olayýna Button1 için açar.
5. Kod penceresinde aþaðýdaki kodu

   Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
   End Sub
   					

   ile:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
         System.EventArgs) Handles Button1.Click
      fBuildArray()
      fBuildFlowchart()
   End Sub
   					

6. Proje) menüsünde Add Module ' ý týklatýn.
7. Module1 içeriðini aþaðýdaki ile Deðiþtir:

   Module Module1
      Public aryValues(5, 2) As String
      Sub fBuildArray()
         aryValues(0, 0) = "Terminator"
         aryValues(1, 0) = "Document"
         aryValues(2, 0) = "Decision"
         aryValues(3, 0) = "Process"
         aryValues(4, 0) = "Terminator"
   
         aryValues(0, 1) = "Begin Routing Process"
         aryValues(1, 1) = "Gather Customer Data"
         aryValues(2, 1) = "Supported Issue?"
         aryValues(3, 1) = "Dispatch to Queue"
         aryValues(4, 1) = "End Routing Process"
      End Sub
   
      Sub fBuildFlowchart()
         Dim vApp As Visio.Application
         Dim vDoc As Visio.Document
         Dim vFromShape As Visio.Shape
         Dim vToShape As Visio.Shape
         Dim vConnector As Visio.Shape
         Dim vFlowChartMaster As Visio.Master
         Dim vConnectorMaster As Visio.Master
         Dim vStencil As Visio.Document
         Dim dblXLocation As Double
         Dim dblYLocation As Double
         Dim vBeginCell As Visio.Cell
         Dim vEndCell As Visio.Cell
         Dim iCount As Integer
         Const TEMPLATEPATH = "C:\Program Files\Microsoft Office\Visio10\1033\" _
            & "Solutions\Flowchart\Basic Flowchart Shapes (US units).vss"
   
         ' Change this constant to match your choice of location and file name.
         Const SAVENEWFILE = "C:\Simpleflowchart.vsd"
   
         ' Start point measured from the bottom left corner.
         dblXLocation = 4.25
         dblYLocation = 8.5
   
         vApp = New Visio.Application()
         'Create a new document; note the empty string.
         vDoc = vApp.Documents.Add("")
         vStencil = vApp.Documents.OpenEx(TEMPLATEPATH, 4)
   
         For iCount = LBound(aryValues) To UBound(aryValues) - 1
            vFlowChartMaster = vStencil.Masters(aryValues(iCount, 0))
            vToShape = vApp.ActivePage.Drop(vFlowChartMaster, _
               dblXLocation, dblYLocation)
            vToShape.Text = aryValues(iCount, 1)
            If Not vFromShape Is Nothing Then
               If vConnectorMaster Is Nothing Then
                  vConnectorMaster = vStencil.Masters("Dynamic Connector")
               End If
               vConnector = vApp.ActivePage.Drop(vConnectorMaster, 0, 0)
               vBeginCell = vConnector.Cells("BeginX")
               vBeginCell.GlueTo(vFromShape.Cells("AlignBottom"))
               vEndCell = vConnector.Cells("EndX")
               vEndCell.GlueTo(vToShape.Cells("AlignTop"))
               vConnector.SendToBack()
            End If
            vFromShape = vToShape
            vToShape = Nothing
            dblYLocation = dblYLocation - 1.5
         Next
         vDoc.Pages(1).Name = "Flowchart Example"
         Try
            ' Delete the previous version of the file.
            Kill(SAVENEWFILE)
         Catch
         End Try
         vDoc.SaveAs(SAVENEWFILE)
         vDoc.Close()
         vApp.Quit()
         vDoc = Nothing
         vApp = Nothing
         GC.Collect()
      End Sub
   End Module
   					

   NotTEMPLATEPATH sabit Visio yükleme klasörünüze gösterecek biçimde deðiþtir. Varsayýlan olarak, konum aþaðýdakilerden biridir:
   • Office Visio 2007 için varsayýlan konum C:\Program Files\Microsoft Office\Visio12\1033\BASFLO_U.VSS ' dir.
   • Visio 2003 için bu dosya için varsayýlan konum C:\Program Files\Microsoft Office\Visio11\1033\BASFLO_U.VSS olur.
   • Visio 2002 için bu dosya için varsayýlan konum C:\Program Files\Microsoft Visio\Visio10\1033\Solutions\Flowchart\Basic akýþ þekiller olan (ABD ve birimleri) .vss.
8. Hata Ayýkla menüsünde týklatýn baþlatýn.
9. C:\Simpleflowchart.VSD sonuçlarý görmek için Visio içinde açýn.

Üste