| | |
| Stránka: 1 z 1
| [ Príspevkov: 18 ] | |
Autor | Správa |
---|
Registrovaný: 14.02.09 Prihlásený: 12.09.09 Príspevky: 6 Témy: 4 | Napísal Exarch: 16.02.2009 12:56 | |
|
zdravim chcel by som poprasit ci by mi dakto napisal kus podrobnejsi navod ako by som urobil vo Visual Basic 2008 aby napr. ked kliknem na button1 tak aby sa mi otvoril openfiledialog a tam by som si vede vybrat nejaky .exe subor ktori by sa potom otvoril po kliknuti na button2 . Dakujem
|
|
Registrovaný: 15.02.09 Prihlásený: 21.04.09 Príspevky: 68 Témy: 1 Bydlisko: I live wher... |
OpenFileDialog je v Visual Basic 2008 veľmi ľahká záležitosť. Tu máš taký ukážkový kód ...
Kód: Dim Open As New OpenFileDialog() Dim myStreamReader As System.IO.StreamReader Open.Filer = "Textové súbory (*.txt)|*.txt|Všetky súbory (*.*)|*.*" Open.CheckFileExists = True Open.Title = "Titulok Okna" Open.ShowDialog(Me) Try Open.OpenFile() myStreamReader = System.IO.File.OpenText(Open.FileName) document.Text = myStreamReader.ReadToEnd() Catch ex As Exception
End Try
Ak chceš aby ti vyhľadalo len jednotlivé súbory ktoré chceš napr. (.txt) alebo (.mp3) tak na tu slúži funkcia Open.Filter ....
// Ak by sa v kóde vyskytli chyby tak napíš, lebo som to písal rýchlo ale nemali by byť...
|
|
Registrovaný: 14.02.09 Prihlásený: 12.09.09 Príspevky: 6 Témy: 4 | Napísal autor témy Exarch: 16.02.2009 16:20 | |
|
Aha diki to uz mam hotovo a funguje to len ak by som teraz chcel aby sa mi to execko otvorilo v button tak na aki mam zmenit tento kod
Citácia: Document.Text = myStreamReader.ReadToEnd()
som uplni zaciatocnik a este sa do toho neviznam
|
|
Registrovaný: 02.11.08 Prihlásený: 10.08.12 Príspevky: 85 Témy: 1 | Napísal Patkoo: 20.02.2009 1:14 | |
|
ak som pochopil spravne, nasledujuci kod by mal robit to co potrebujes.
najlepsie je vzdy si uzivatelom vybrany subor niekam ulozit - jeho cestu (textbox, label, tag alebo nieco podobne) a potom ho odtial citat, je to efektivnejsie.
Kód: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Open As New OpenFileDialog()
Button2.Tag = ""
Open.Filter = "Binárne súbory (*.exe)|*.exe|Všetky súbory (*.*)|*.*" Open.CheckFileExists = True Open.Title = "Titulok Okna" Open.ShowDialog(Me)
Button2.Tag = Open.FileName() End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Tag <> "" Then Shell(Button2.Tag, AppWinStyle.NormalFocus)
End Sub
|
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Prosím ta skúsil som si okopírovať Tvoj COD ako máš ti. Lenže pri skontrolovaní mi to vyhadzuje tieto vlnovky a aj "Debugovaním" skompilovanim Mám problém. Môžeš mi poradiť kde robím chybu?
P.S.Tiež som začiatočník.
|
|
Registrovaný: 02.11.08 Prihlásený: 10.08.12 Príspevky: 85 Témy: 1 | Napísal Patkoo: 22.02.2009 10:44 | |
|
document.text = myStreamReader.ReadToEnd()
document - nazov labelu alebo textboxu.
|
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Ahojte skúsil som miečo odlišné než otvorit klasickím spôsobom.
Je to skôr "Uložiť" iním spôsobom.
Kód: Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If My.Computer.FileSystem.DirectoryExists("C:\A\") = True Then 'Vytorili ste zložku "A" Na Hardisku "C:\A\ . . . ." Else MkDir("C:\A\") End If 'Toto vytvára zložku "A" inak sa Váš text nevytvorí a neuložý! 'Nemá kde. End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Na TextBox1.Text napíšte váš lubovolní text"
'V políčku TextBox2.Text sy môžte zvolit kde bude Uložený a ako sa bude volať. 'Vtomto prípade bude uložený v zložke "C:\A\ . . . ." My.Computer.FileSystem.WriteAllText(TextBox2.Text, TextBox1.Text, False) MsgBox("Your text was created! Start saving! Váš text bol vytvorený! Spustít zápis", MsgBoxStyle.Information, "Login created!") 'Vytorili ste zložku "A" Na Hardisku "C:\A\ . . . ." a aj Váš text. 'Text odporúčam uložiť vo formáte TXT. A ak chcete v DOC musíte mať vo WORDe spustené "Macro"! End Sub End Class
Viac na http://rapidshare.com/files/250459360/Login_Name.rar.html
Neni to zaheslované.
Viac na. http://www.pcforum.sk/c-vs-c-vt52455.html
|
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Ahojte chalani a dievčatá. Mám další program kde je použití iní spôsob kopírovania procesu.
Kód: Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Stop() If My.Computer.FileSystem.FileExists("C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") Then ' Ak je na disku "C" a v zložke "A" menovaná skladba tak sa spustí "Play.ShowDialog () Me.Hide() Play.ShowDialog() End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() ' Start the timer.
My.Computer.FileSystem.CopyFile( _ "D:\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav", _ "C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") 'Menovaný kopirovací proces.
MsgBox("File copy wav. Máte to už skopirované wav", MsgBoxStyle.Information, "Info") Play.ShowDialog() End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick AddHandler Timer1.Tick, AddressOf ProgressBar1_Click
Timer1.Interval = 5000 '<<-- Pravdepodobne by tu malo pracovať My.Computer.FileSystem.CopyFile 'Start the timer. Timer1.Start()
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click ProgressBar1.Increment(1) ' Display the textual value of the ProgressBar in the StatusBar control's first panel. Label1.Text = ProgressBar1.Value.ToString() + "%" ' Determine if we have completed by comparing the value of the Value property to the Maximum value. If ProgressBar1.Value = ProgressBar1.Maximum Then ' Stop the timer. Timer1.Stop() End If End Sub End Class
Program vypadá podobne ako toto:
[IMG]http://img340.imageshack.us/img340/472/copyl.th.png]
Viac najdete na:
http://rapidshare.com/files/292148322/Copy_Programy.rar.html
Alebo z menovanou skladbov:
http://rapidshare.com/files/292182367/Copy.part1.rar.html
http://rapidshare.com/files/292184690/Copy.part2.rar.html
Neni to zaheslované
Chcel by som aby mi tam pracoval "ProgressBar1"
Ako tento menovaní obrázok
[img=http://img176.imageshack.us/img176/592/copy1.th.png]
ProgressBar1 ma inšpiroval z ,5_VideoDirectX, Zvaní ,Video prehrávač, Ktorý je trocha <-- Okopírovaní z toho projektu od microsoftu.
A v mojom programe my nejde spustiť, menovaní ProgressBar1.
|
|
Registrovaný: 02.11.08 Prihlásený: 10.08.12 Príspevky: 85 Témy: 1 | |
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Ahojte skusil som to urobiť podľa tejto stránky http://www.vbdotnetforums.com/gui/8288-copy-file-progress-bar.html A progressbar sa mne síce rozbehol ale oneskoreno a keď som ho vložil do Button tak sa My zasekol Kód: Dim sr As New IO.FileStream(path & mediafile, IO.FileMode.Open) 'source file Celí kód je Kód: Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Stop() If My.Computer.FileSystem.FileExists("C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") Then ' Ak je na disku "C" a v zložke "A" menovaná skladba tak sa spustí "Play.ShowDialog () Me.Hide() Play.ShowDialog()
End If End Sub Sub copyfilewithprogress() Dim path As String = Application.StartupPath & "\" 'Implantované zo "http://www.vbdotnetforums.com/gui/8288-copy-file-progress-bar.html" Dim mediafile As String = "D:\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav" Dim fi As New IO.FileInfo(mediafile) Dim sr As New IO.FileStream(path & mediafile, IO.FileMode.Open) 'source file Dim sw As New IO.FileStream(path & "copy of " & mediafile, IO.FileMode.Create) 'target file, defaults overwrite Dim len As Long = sr.Length - 1 For i As Long = 0 To len sw.WriteByte(sr.ReadByte) If i Mod 1000 = 0 Then 'only update UI every 1 Kb copied ProgressBar1.Value = i * 100 / len Application.DoEvents() End If Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() ' Start the timer.
ProgressBar1.Value = 0 My.Computer.FileSystem.CopyFile( _ "D:\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav", _ "C:\A\01 - Delirium Volume 2 (Mixed By Dave Pearce) CD1.wav") 'Menovaný kopirovací proces.
MsgBox("File copy wav. Máte to už skopirované wav", MsgBoxStyle.Information, "Info") Play.ShowDialog() 'Druhí Form v ktorom sa menovaná skladba spustí
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick AddHandler Timer1.Tick, AddressOf ProgressBar1_Click copyfilewithprogress() Timer1.Interval = 5000 '<<-- Pravdepodobne by tu malo pracovať My.Computer.FileSystem.CopyFile(Skladby) 'Start the timer. Timer1.Start() End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click ProgressBar1.Increment(1) ' Display the textual value of the ProgressBar in the StatusBar control's first panel. Label1.Text = ProgressBar1.Value.ToString() + "%" ' Determine if we have completed by comparing the value of the Value property to the Maximum value. If ProgressBar1.Value = ProgressBar1.Maximum Then ' Stop the timer. Timer1.Stop() End If End Sub End Class
Ďakujem za pozornosť a spoluprácu.
|
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Ahojte mám iní problém.
Preinštaloval som sy Windows XP --čko. A keď sy chcem otvorít spustiť neakí project. Tak sa my zobrází tento MsgBox.
http://img26.imageshack.us/i/msgbox.jpg/
Ďakujem za spoluprácu.
|
|
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 11.12.2010 21:40 | |
|
Chyba by mala zmiznúť po nainštalovaní .NET Framework-u.
_________________ Ak potrebujete pomoc s diagnostikou/opravou vasej elektroniky ( notebook, motherboard, GPU, a ine ), kontaktujte ma cez SS. |
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... | |
Registrovaný: 11.01.09 Prihlásený: 29.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 11.12.2010 23:00 | |
|
Na tejto stránke stiahneš najnovší .NET Framework 4. Ak ti nevyhovuje, môžeš si tam vyhľadať predošlé verzie. Malo by ti to stiahnuť iba malú inštalačku, ktorú keď spustíš, inštalácia prebehne online. Viac ti poradiť nedokážem, windows nepoužívam.
_________________ Ak potrebujete pomoc s diagnostikou/opravou vasej elektroniky ( notebook, motherboard, GPU, a ine ), kontaktujte ma cez SS. |
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
_________________ New - HP ProBook 450 G4 | OS: Windows 10 Pro | CPU: Intel Core i3-7100U (2,40GHz) | RAM: 8 GB DDR4 | SSD: 128 GB + HDD: 1 TB Old - HP Compaq nx 7400 rok výroby 2006 OS: Windows XP Home Edition. CPU: Intel(R) Celeron(R) M CPU 420 @ 1.6 GHz | „Tuning“ RAM: 2GB | HDD: 150 GB Hovor vždy pravdu aj keby ta to malo bolieť. Ale časom sa ju naučíš počúvať, aj keď tY do očí klamú. Chemická zlúčenina vodíka s kyslíkom, ktorá produkuje minimálnu úroveň hlasitosti, spôsobuje eróziu vrstvy hornín, uložených pozdĺž jej trajektórie. (Ticha voda brehy myje.) |
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Vtip dva.
Preinštaloval som sy opäť Windows XP --čko.
Prepáčte za počet smajilkov: v príspevku. xixixi
_________________ New - HP ProBook 450 G4 | OS: Windows 10 Pro | CPU: Intel Core i3-7100U (2,40GHz) | RAM: 8 GB DDR4 | SSD: 128 GB + HDD: 1 TB Old - HP Compaq nx 7400 rok výroby 2006 OS: Windows XP Home Edition. CPU: Intel(R) Celeron(R) M CPU 420 @ 1.6 GHz | „Tuning“ RAM: 2GB | HDD: 150 GB Hovor vždy pravdu aj keby ta to malo bolieť. Ale časom sa ju naučíš počúvať, aj keď tY do očí klamú. Chemická zlúčenina vodíka s kyslíkom, ktorá produkuje minimálnu úroveň hlasitosti, spôsobuje eróziu vrstvy hornín, uložených pozdĺž jej trajektórie. (Ticha voda brehy myje.) |
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 Bydlisko: Brno | Napísal Ďuri: 29.07.2011 16:07 | |
|
Ake prepacte? Nehnevaj sa, ty nevyzeras, ze si normalny. Vies, ze tam mas smajlikov ako nasrate, vies, ze to robit nemas, a napriek tomu to spravis. Dalsi taky prispevok ti zmazem.
A... ja neviem, skusil si aspon precitat, co je v tom okne napisane? Riesenie je nainstalovat si .NET framework.
Silne pochybujem, ze ten udaj v profile, Vek: 32 je aspon spolovice pravdivy.
|
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
Hups veľmi sa ospravedlňujem za svoju nadimenzovanú extrovertnosť.
Ale musel som sa podeliť s vami čo sa my stalo. Po preinštaláci Windows -u.
A sám som písal.
imrich píše:
A z počítačmi, CNC strojmi, a rôzne elektronické zariadenia (mobil, fotoaparát, atd).
Sa zaoberám cca zhruba 7 sedem rokov. A vždy ma prekvapujú ich Messagebox – y.
http://img163.imageshack.us/img163/2668/dsc00556pj.jpg
http://img851.imageshack.us/img851/893/dsc00557vx.jpg
http://img853.imageshack.us/img853/2733/dsc00559oq.jpg
_________________ New - HP ProBook 450 G4 | OS: Windows 10 Pro | CPU: Intel Core i3-7100U (2,40GHz) | RAM: 8 GB DDR4 | SSD: 128 GB + HDD: 1 TB Old - HP Compaq nx 7400 rok výroby 2006 OS: Windows XP Home Edition. CPU: Intel(R) Celeron(R) M CPU 420 @ 1.6 GHz | „Tuning“ RAM: 2GB | HDD: 150 GB Hovor vždy pravdu aj keby ta to malo bolieť. Ale časom sa ju naučíš počúvať, aj keď tY do očí klamú. Chemická zlúčenina vodíka s kyslíkom, ktorá produkuje minimálnu úroveň hlasitosti, spôsobuje eróziu vrstvy hornín, uložených pozdĺž jej trajektórie. (Ticha voda brehy myje.) |
|
| Stránka: 1 z 1
| [ Príspevkov: 18 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Visual Basic 2008 v Ostatné programy | 2 | 762 | 06.04.2009 13:34 Ominous | | visual basic 2008 textbox v Delphi, Visual Basic | 2 | 699 | 02.01.2010 17:37 eragon124 | | Visual Basic 2008 tiene v Delphi, Visual Basic | 3 | 688 | 27.04.2010 22:13 Patkoo | | Otvorenie .exe v Visual Basic 2008 Express v Delphi, Visual Basic | 1 | 779 | 14.02.2009 22:05 eragon124 | | Visual Basic v Delphi, Visual Basic | 3 | 733 | 10.08.2011 19:03 Fico | | Knihy Visual Basic v Delphi, Visual Basic | 2 | 1243 | 08.09.2009 14:25 reDo | | Visual Basic Kalkulačka v Delphi, Visual Basic | 1 | 1017 | 29.04.2011 12:28 walther | | Stiahnutie Visual Basic 6 v Delphi, Visual Basic | 8 | 3947 | 15.03.2009 20:24 prandof | | Visual Basic premenná public v Delphi, Visual Basic | 0 | 465 | 04.12.2013 11:40 Karo88 | | visual basic exe subor v Delphi, Visual Basic | 1 | 1505 | 08.01.2010 16:05 semo1212 | | manual k Visual Basic v Delphi, Visual Basic | 5 | 4025 | 17.05.2009 10:06 M.Valasek | | visual basic pre 64bit system v Delphi, Visual Basic | 0 | 654 | 29.09.2010 23:08 mutte | | Vista & Visual basic 6 v Operačné systémy Microsoft | 1 | 445 | 08.02.2009 12:07 Mettiu | | Visual basic - rozdiely vo verziách v Delphi, Visual Basic | 1 | 657 | 27.04.2010 22:12 Patkoo | | [Visual Basic 2010] Minimalizovanie programu v Delphi, Visual Basic | 0 | 302 | 08.04.2021 17:22 marian_sk | | Kniha C# alebo Visual Basic v Technológia .NET | 1 | 522 | 07.03.2014 21:42 walther |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|