dva vuprsa za Visual Basic

5 отговора 153 прегледа
#1

dva vuprsa za Visual Basic

imam slednite dva vuprosa za VB6 ...

1. naprimer ako iskam da suzdam mnogo failove na edno miasoto triabva li da pisha
Open ("patch name") For Output As #1 Close #1
tova neshto mnogo puti ili ima drug nachin koito e po lesen?

2. mnogo shte se radvam ako niakoi mi dade kod s koito moje da se restartira ili izkluchva win98 , zashtoto az tursih takuv kod v edna kniga no tam imashe samo za reset na winNT.

Отговор
в отговор на lamer4o #2

Re: dva vuprsa za Visual Basic

за файловете използвай FileSystemObject - tam si ima class File i можеш да си ги създаваш както искаш и колкото искаш.
(treba da Референсфнеш " Microsoft Scripting Runtime")

за ресет на вин98 пробваи с 'ExitWindowsЕx' - sega twa se seshtam...

Отговор
в отговор на YoYo #3

Re: dva vuprsa za Visual Basic

znache napravih reference na (" Microsoft Scripting Runtime ") , taka i sega ot kade moga da izvikam tova FileSystemObject ??? Abe obiasniavaite mi malko po podrobno shtoto sum lamer i pochti nishto ne razbiram ot VB ...
Puk tova koeto ti mi dade 'ExitWindowsЕx' , s nego nishto ne stava , ili moje az da ne go pravia kakto triabva neznam :(


Отговор
в отговор на lamer4o #4

Re: dva vuprsa za Visual Basic

YoYo, тръгваш по дългия път. FileSystemObject изисква повече писане.

Lamer4o, за твоите въпроси мога само да дам някакви приблизителни отговори, тъй като не споменаваш какви файлове искаш да създаваш. YoYo даде определение как става "лесно", но май начина е удобен само когато искаш да отвориш временен файл.

Друго: Ако ползваш много отворени в един и същи момент файлове - по-добре е да си декларираш отделни променливи за тяхната номерация. Т.е. кода:
---------------------
Dim intFileData As Integer
Dim intFileSource As Integer

intFileData = FreeFile
Open App.Path & "\star.dat" For Binary As intFileData
...'neshto si
Close intFileData
---------------------
така няма да стане объркване с номерата на файловете, и няма да ти се наложи да прелистваш по 100 пъти кода, или да си водиш дълги списъци с възможните отворени файлове и т.н.

...
По втория въпрос:
Shutdown може да се направи така
c:\windows\system\RunDll32.exe,User.exe ExitWindows

в програмен код:
Shell "c:\windows\system\RunDll32.exe,User.exe ExitWindows"

Абе, за програмния код - не е много сигурна работата, щото не се знае дали се знае дали Windows няма да изчака да се Close-не първо самата програма. Ще трябва да напаснеш някои неща. Просто това работи и от Шорткът...

Айде бай сега, че тряаа да работя малко...
;о)

Отговор
в отговор на Mr_lbkis #5

Re: dva vuprsa za Visual Basic

Za obisnenieto za faila mnogo mersi :) ... Naistina vi blagodaria za tova :)
No tova za shut down i reset na windows , abe neznam no pri men nishto ne stava :(

Отговор
в отговор на lamer4o #6

Re: dva vuprsa za Visual Basic

А аз наистина се радвам, ако съм успял да помогна.

Но в предишния постинг съм объркал една запетая, затова не върви.

За Shutdown:
1. Направи си на десктопа нов Шорткът.
2. За "Command line" му пиши реда
-----> C:\WINDOWS\RUNDLL32.EXE User.exe,ExitWindows
3. "Next", "Next" .... докато се затвори прозореца, и вече си имаш Шорткът
4. Стартирай го.

Ако Windows се Shutdown-не - значи няма проблем, и този ред ще можеш да го ползваш и в програмен код.

Е, толкова от мен, пък ако имаш време и желание за чат - ICQ: 34254941

Отговор