ABA


"כמה שאלות בויז'ואל בייסיק"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7772 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 7772
Israel
חבר מתאריך 1.8.02
2450 הודעות
   17:10   14.01.04   
אל הפורום  
  כמה שאלות בויז'ואל בייסיק  
 
   1) אפשר בבקשה הסבר איך כותבים לתוך קובץ טקטס? זה משהו כזה בערך אני זוכר open c:\text.txt אפשר בבקשה הסבר קצת על זה.

2) אפשר הסבר על AppActive כאילו לדעת איזה חלונות פעליםי וזה ולדוגמא יש חלון פעיל כלשהו שהתוכנה שולחת עליו משהו ב sendkeys איך התוכנה יכולה לדעת תשם של החלון כשהוא מתשנה.

3)אפשר הסבר איך עושים open שאני לוחץ על כפתור ואז למשל ליסט יקבל קבצים ממה שנבחר וSave שישמור משהו לשם וגם שידע מיקום לאן אני שומר בשביל כשאני ילחץ אחר כך על כפתור אחר ישמור באמת

וכמובן מראש לכל העוזרים.....


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  אני אענה לך על 1 ו3 Black Death 16.01.04 16:56 1
     תודה רבה על ההסבר Israel 16.01.04 17:22 2
         בקשר לשאלה השניה Vidi 16.01.04 20:29 3
             ניסיתי לעשות את זה.. Mentor 17.01.04 21:41 4

       
Black Death

   16:56   16.01.04   
אל הפורום  
  1. אני אענה לך על 1 ו3  
בתגובה להודעה מספר 0
 
   כי את 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 String

Open 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


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Israel
חבר מתאריך 1.8.02
2450 הודעות
   17:22   16.01.04   
אל הפורום  
  2. תודה רבה על ההסבר  
בתגובה להודעה מספר 1
 
   .
ושבת שלום כמובן...


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Vidi
חבר מתאריך 1.10.17
591 הודעות
   20:29   16.01.04   
אל הפורום  
  3. בקשר לשאלה השניה  
בתגובה להודעה מספר 2
 
בהצהרות:

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

במקום שאתה רוצה

Dim Ret As Long
Dim mystr As String
Ret = GetForegroundWindow()
mystr = String(100, Chr$(0))
GetWindowText Ret, mystr, 100


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Mentor
חבר מתאריך 23.11.18
483 הודעות
   21:41   17.01.04   
אל הפורום  
  4. ניסיתי לעשות את זה..  
בתגובה להודעה מספר 3
 
   ערכתי לאחרונה בתאריך 17.01.04 בשעה 21:44 בברכה, Mentor
 
אבל כל רגע יש ארורים..
למשל ב-

sInput

מה אני צריך לעשות כדיי שזה יסתדר ?


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net