ya bekledm bekldem kimse bişey yazmıyo. Bölümün adminleri de hiç bakmıyo, ben bi iki şey buldum yazıyım. belki biri faydalarnır.. FARKLI KAYDET common dialog, textbox, ve command buton koy Private Sub Command1_Click CommonDialog1. Filter = "metin dosyaları . txt" CommonDialog1. ShowSave If CommonDialog1. FileName <> "" Then Open CommonDialog1. FileName For Output As 1 Print

Text İçin İse Kod Yazmana Gerek Yok, Zaten Textin İçini Sağ Tıklarsan O Özellikler Mevcut.. Aç ve Kayıt Özellikleri İçin İse Bu Konuya Bakabilirsin.. http://www.wardom.org/new-open-ve-save-butonu-t113394.html

End If Form1. Caption = CommonDialog1. FileName End Sub textbox içindeki yazıyı kalın, italik, altı çizili yazmanızı sağlar 'checkbox((3)-style özelliği 1-graphical olarak ayarlandı), textbox(1) Private Sub Check1_Click Text1. FontBold = Check1. Value End Sub Private Sub Check2_Click Text1. FontItalic = Check2. Value End Sub Private Sub Check3_Click Text1. FontUnderline = Check3. Value End Sub buda yazıcı için bir text box, bir buton ve bir common dialog Private Sub Command1_Click CommonDialog1. CancelError = True On Error GoTo hata CommonDialog1. PrinterDefault = True CommonDialog1. Copies = 1 CommonDialog1. ShowPrinter For kopya = 1 To CommonDialog1. Copies Printer. Print txtEdit. Text Printer. EndDoc Next kopya hata: Exit Sub End Sub

önemli diil kardeş biara benm de yaramıştı

bu da BUL komutu için Birinci Yöntem 'Bir alana bağlı olmayan textler için ARAMA Private Sub Command5_Click On Error Resume Next Dim A, B Adodc1. Refresh A = Text9 B = "STOK_kodu='" & A & "'" Adodc1. Recordset. Find B Text1 = Adodc1. Recordset! Text2 = Adodc1. Recordset! Text3 = Adodc1. Recordset! END SUB 'Bir alana bağlı olAN textler için ARAMA Private Sub Command7_Click Dim A, B Adodc1. Refresh A = Text3 B = "ADI='" & A & "'" Adodc1. Recordset. Find B End Sub Buda İkinci Yöntem.. 'Bir alana bağlı olmayan textler için ARAMA Private Sub Command13_Click On Error Resume Next Adodc1. Refresh Adodc1. Recordset. Find "STOK_KODU like '" & Text9. Text & "'" If Adodc1. Recordset! <> Text9 Then MsgBox "BÖYLE BİR KAYIT YOK" Else Text1 = Adodc1. Recordset! Text2 = Adodc1. Recordset! Text3 = Adodc1. Recordset! End If End

hani programlarda aç farklı kaydet kes kopyala felan oluyo ya onları nasl yapcaz? yani mesela bi formda text1 adında bi text var. onun için.