Visual Basic 6 - notepad

[boki71]

Jedno pitanje za programere koji to verovatno ovo znati s obzirom da se time ne bavim....Napravio sam notepad u visual basicu,ubacio sve osnovne funkcije i sve funkcionise kod komandi sa dugmadi ok..Medjutim u gornjem meniju takodje sve radi osim funkcija Save i Save as...uporno na njih javlja gresku a pokusao sam sa vise komandi dok ostale funkcije u gornjem meniju rade...

zanimaju me ispravne komande

Private Sub mnuFileSaveAs_Click()
Private Sub mnuFileSave_Click()

 

[n3m3sis]

mnuFileSaveAs_click() nije ti u potpunosti, ti jesi kreirao dugme u meniju ali ono nema komandu tj. svaki put kad kliknes na njega ne mozes sacuvati, samo ti je prazno, nista se ne desava. e sad, ja mislim da save as mozes rijesiti preko commondialog-a

Private Sub mnuSaveAs_Click()
CommonDialog1.CancelError = False
CommonDialog1.Filter = "Text Files{*.txt}|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist
CommonDialog1.InitDir = "C:\"
CommonDialog1.DialogTitle = "Save as"
CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Trim(txtEdit.Text)
Close #1
End If

Me.Caption = "File Saved - " & CommonDialog1.FileName

Exit Sub

Dodato posle 20 minuta:
--------------------------------------------------------------------------

provjeri jel radi pa mi javi

 

[boki71]

Nisi me razumeo.......kreirao sam svu dugmad i svima dao komande koje sve rade......Kod standardnih dugmadi sve komande su ok i sve funkcionise besprekorno ,medjutim kod gornjeg menija takodje rade skoro sve komande edit,copy,paste,find,find new,exit.......osim ode dve pomenute......Tu sam izmenjao pa bar po desetinu razlicitih komandi ...Kod neke komande usnimi notepad fajl ali prazan,kod neke se nista ne desava ali kod velike vecine javlja razne greske......

E da i kod ove javlja isto gresku .....

 

[n3m3sis]

ajd sad idemo redom da ti kazem sta ti nije u redu, to ces sada 100% uociti i znaces za ubuduce kada budes radio programe. ovako, vidis i sam kao i ja da je izbacilo gresku. pise variable not defined sto znaci da varijabla nije definisana (logicno) ali koja varijabla? e to ti sam program pokazuje, vidis da je oznacio commondialog1? jel tako? e sad, tvoj problem je sledeci, vec sam ti rekao da kontrola SaveAs radi preko commondialog-a, a ti ga ocigledno nisi ubacio. ne moze kontrola raditi ako joj objekat nije definisan, ne prepoznaje common-a. dakle, prvo sto ces uraditi jeste da ces izbrisati kod koji sam ti dao, zatim, napravices meni dugme SaveAs(znas vec kako ide, &SaveAs, ispod ide mnuFileSaveAS pod uslovom da se dugme nalazi u podmeniju File naravno), kada dugme napravis ubacices commondialog, njega nemas u paleti zato ces ga rucno dodati, desni klik na paletu (paleta gdje se nalaze labele, text boxovi itd) i ides components, tu ces cekirati microsoft common dialog control 6.0 (sp6), i kada je cekiras i stisnes ok primjetices novu kontrolu u paleti, vidjeces je, zadnja je. to je znaci ono sto nam treba, najvazniji dio, common dialog. e sada, ubacis ga na formu (samo ga stvoris bilo gdje, sto se mene tice stavi ga na sred velikog textbox-a od notepada, jer common dialog se ne vidi kada je program pokrenut, to ces se uvjeriti i sam). sada kada ga imamo na formi, idemo na source code i onda iskopiraj onaj kod koji sam ti dao

Private Sub mnuSaveAs_Click()
CommonDialog1.CancelError = False
CommonDialog1.Filter = "Text Files{*.txt}|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist
CommonDialog1.InitDir = "C:\"
CommonDialog1.DialogTitle = "Save as"
CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Trim(txtEdit.Text)
Close #1
End If

Me.Caption = "File Saved - " & CommonDialog1.FileName

Exit Sub

sve ovo kopiraj, nista ne kreiraj vec samo uzmi negdje na prazan prostor ali da ne bude u nekoj drugoj funkciji vec ispod neke druge, da pojednostavim, kopiraj ispod end sub od bilo koje druge i to je to kolega, garantujem ti da ce dugme raditi osim ako nesto drugo ne zeznes ali nema veze, da se popraviti

vidim da se zanimas za vb6 pa ako hoces mogu ti poslati par programcica a ti ih onda dotjeraj za druge korisnike taman imas priliku da naucis vise o programiranju

Dodato posle 2 minuta:
--------------------------------------------------------------------------

e da, izvini, zaboravio sam ti reci nesto, opet ce ti izbaciti gresku, ali to samo treba da prepravis rucno

Print #1, Trim(txtEdit.Text)

u ovoj liniji koda ces samo promijeniti ime txtEdit u svoje. txtEdit ti je ime textbox-a odnosno notepad editor u kojem kucas, sad ne znam kako si ga ti nazvao, da li je text1 ili nesto drugo u glavnom znas sta hocu da ti kazem

pozdrav i javi mi sta se desilo

 

[boki71]

Tu nesto nije ocigledno stimalo....izmenjo sam pa sigurno dvadesetak komandi i ove dve opcije nisu radile......Onda sam obriso gornji meni i postavio te opcije kao dugmad i sve je sada ok po tom principu,naravno sve radi.......

Zatim sam isao korak dalje i instalirao Visual Basic 2008......sa njim se poigrao malo i sve komande rade bez problema ,a usput ima i puno novih komandi tako da sam zadovoljan odradjenim....sa RichTextBoxom.....Bice od mene nesto.......

Naravno bez ikakvih dugmadi je jer nije bilo potrebe........pa evo sta odradio i na moje zadovoljstvo sve rade do jedne.......Usput Hvala na pomoci....

 

[boki71]

E da mozes mi poslati programe da vidim o cemu se radi......Video sam na netu jedan lepo odradjen tekstualni editor pa sam se zainteresovao kako se zapravo i radi...Pre tri dana sam instalirao visual basic i evo rezultata.......kao sto rekoh bicer od mene nesto.....hihihi.......

Srecom brzo kapiram jer imam neko solidno znanje pa se dobro snalazim te mi nije predstavljalo bas posebne poteskoce da ukapiram rad ovog alata.....u principu sa njime se koliko vidim moze gotovo sve napraviti,samo treba vremena malo vise i volje.......

Pozzzzzzz,......

 

[n3m3sis]

ma naravno. drago mi je da ti radi program, i da, poslacu ti program po program tj. slacu ti forme i projekte, a ti onda samo malo vise truda ulozi i ustimaj da izgleda profi program

e da, zaboravio sam da ti dam komandu za Open i Save.

aj prvo za Open

napravi dugme za njega i na samom pocetku programa tj. source koda napisi prekopiraj ove dvije linije koda

Option Explicit
Dim openfile As String

i onda prekopiraj ovu komandu u open dugme (znas kako vec)

Dim fnum As Integer
Dim str As String

CommonDialog1.CancelError = False
CommonDialog1.Filter = "Text Files{*.txt}|*.txt"
CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNPathMustExist
CommonDialog1.InitDir = "C:\"
CommonDialog1.DialogTitle = "Select file to open..."
CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then
fnum = FreeFile
Open CommonDialog1.FileName For Input As #1
str = Input(LOF(fnum), #fnum)
Close #fnum
txtEdit.Text = str
Close #1
openfile = CommonDialog1.FileName
Me.Caption = "File Opened - " & CommonDialog1.FileName
End If

Exit Sub

ovo ti znaci dolazi izmedju npr. kako je kod mene Private Sub mnuFileOpen_Click() i end sub, znaci kontrola dugmeta

to bi bilo za open, a sada za Save, napravi isto dugme i onda kopiraj ovo

If Trim(openfile) = "" Then
CommonDialog1.CancelError = False
CommonDialog1.Filter = "Text Files{*.txt}|*.txt"
CommonDialog1.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist
CommonDialog1.InitDir = "C:\"
CommonDialog1.DialogTitle = "Save as"
CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Trim(txtEdit.Text)
Close #1
End If

Me.Caption = "File Saved - " & CommonDialog1.FileName
Else
Open openfile For Output As #1
Print #1, Trim(txtEdit.Text)
Close #1

Me.Caption = "File Saved - " & openfile
End If

Exit Sub

e sad, napravi txt fajl na dektopu preko normalnog notepada i upisi nesto u njega, zati pokreni program svoj, idi na open i tamo ga nadji, kad ga otvoris izmijeni sadrzaj teksta i idi na save, i na kraju otvori taj fajl preko obicnog notepada i vidi jel izmijenio, meni jeste i kod mene super radi. aj pa mi javi

 

[boki71]

Preso sam na VB2008 a tu su komande nesunjivo drugacije , ma ok sve sam to skapiro.....ide mi solidno......uspeo sam da napravim za kratko vreme browser.......:yea:...koji radi sasvim zadovoljavajuce osim sto nemogu addoni......

 

[boki71]

Ispustio sam napisati jos........

Za usnimavanje teksta komanda koja funkcionise ....na principi dugmeta.....mozda nekom i zatreba.....(save)

Me.CommonDialog1.Filter = "TextFiles (*.txt) | *.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1

A za otvaranje teksta (Open)

Me.CommonDialog1.Filter = "TextFiles (*.txt) | *.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Input #1, contentfile
Text1 = Text1 & contentfile & vbCrLf
Loop
Close #1