sinanozulku
🌱Yeni Üye🌱
- Katılım
- 29 Tem 2010
- Mesajlar
- 4
- Tepkime puanı
- 0
Teklif Hazırlayıcı Programı yaratın
File menüsünde new project tıklayın sorna standart.exe dosyasını yaratmka için Ok’i Tıklayın.
Formun sol üst kösesinde Teklif Hazırlayıcı Resin yazısına sahip bir etiket yaratın.Etiketin Altına ikinci bir etiket yaratak resim yazısına Word excel Ve paint kullanarak bir imalatın teklifinin hazırlanması yazın
İlk etikette de fazladan yer bırakın daha sonra özellikleri ayarlarken resim yazısını boyutunu büyütüceksiniz..
İkinci etikette de fazladan yer bırakın daha sonra özellikleri ayarlarken resim yazısının boyutunu büyüteceksiniz.
Şimdi Forma nesneler ekleyeceksiniz..
Araç kutusunda OLE Denetimini tıklayın.
Teklif çalısma defteri altında ole denetimini kullanarak bir dikdörtgen yaratın..
Insert object iletişim kutusundaki Display As icon onat kutusunu tıklayın böylece uyguluma visual basic programında simge olarak görünür
Ve asagıdaki resimde gödugunuz gibi label ekliyoruz ve font ayarlarını degistiriyoruz büyük bir yazı kalın artık size kalmıs birşey……
Ve label ekliyoruz OLE’LERİN BASLARINA
Ve bütün belgeleri ekliyoruz ben hepsini aynı yaptım size asıl eklenmesi gerekenleri eklemek kalıyor menülerden seciyorsunuz microfost exel artık
keyfiniz bilir hemen devem ediyoruz…
CommandButton ekliyoruz cıkıs butonu icin
Ve kodları Veriyorum
Teklif hazırlayıcı yazısına çift tıklayın ve bu kodu yapıstırın
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
——————————————————
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
——————————————————
Teklif Çalısma Defteri olan kısmın altındaki Wordped belgesine çift tıklayın bu kodu ekleyin..
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Yan tarafındaki teklif hesaplayıcısı kısmına ise su kodu
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
———————————————–End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Uygulama Çizimlerine ise su kodu ekliyoruz
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub
Word exel Ve Paint kullnarak bir imalatın teklifinin hazırlanması ” yazısının kodu
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub
Cıkıs butonu ise istenen kod
Private Sub Command1_Click()
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Private Sub OLE3_Updated(Code As Integer)
End Sub
Ve programın asıl gercek yüzü sizde buna bakarak yapabilirsiniz artık herseyi biliyorsunuz..
