כי את 2 לא הבנתי :(כדי להשתמש ב2 הדברים שאתה רוצה אתה צריך להשתמש בCommon Dialog.
לדוגמא כדי לפתוח ולשמור קבצים:
Option Explicit Dim sInput As String Dim sOutput As String'Command_Button Open File Private Sub cmdOpen_Click() 'Text Filter, only shows TXT files cdlOpen.Filter = "Text Files (*.txt) | *.txt" cdlOpen.ShowOpen sInput = cdlOpen.FileName End Sub 'Command_Button Save File Private Sub cmdSave_Click() 'Text Filter, only shows TXT files cdlSave.Filter = "Text Files (*.txt) | *.txt" cdlSave.ShowSave sOutput = cdlSave.FileName End Sub
|
על מנת לשמור את הקובץ בתוך Text1.txt הפקודה היא זו:
Dim sTemp As StringOpen sInput For Input As #1 Do While NOT EOF(1) Input #1, sTemp Text1.txt = text1.txt & vbCrLf & sTemp Loop Close #1
|
כדי שהפקודות של Common Dialog יעבדו אתה צריך להוסיף את הפקד לטופס.
** איך להוסיף?! **
לחצן ימני על סרגל הכלים Components, יש לך שם רשימה תבחר בMicrosoft Common Dialog Control 6.0
ותוסיף את הפקד שהתווסף לך לסרגל כלים אל הטופס, הפקד אינו מופיע בזמן הרצה.
אם יש לך עוד שאלות בנושא הזה, אשמח לעזור
Black Death