| Autor | Správa |
|---|
Exarch
Užívateľ
Založený: 14.02.2009
Príspevky: 6
 |  Zaslal: Po 16.02.09 13: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 |
| |
  |
|
CoderMan
Užívateľ
Založený: 15.02.2009
Príspevky: 68
Bydlisko: I live where you do not
| | Zaslal: Po 16.02.09 14:16 | |
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ť... |
| |
   |
|
Exarch
Užívateľ
Založený: 14.02.2009
Príspevky: 6
| | Zaslal: Po 16.02.09 17: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  |
| |
|
|
Patkoo
Užívateľ
Založený: 02.11.2008
Príspevky: 85
|
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 |
|
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: So 21.02.09 18:48 | |
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. |
| |
|
|
Patkoo
Užívateľ
Založený: 02.11.2008
Príspevky: 85
| | Zaslal: Ne 22.02.09 11:44 | |
document.text = myStreamReader.ReadToEnd()
document - nazov labelu alebo textboxu. |
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: Ut 30.06.09 23:40 | |
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 |
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: Ut 13.10.09 19:28 | |
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. |
| |
|
|
Patkoo
Užívateľ
Založený: 02.11.2008
Príspevky: 85
| | Zaslal: Ut 20.10.09 22:43 | |
|
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: St 04.11.09 12:55 | |
Ahojte skusil som to urobiť podľa tejto stránkyhttp://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. |
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: So 11.12.10 18:34 | |
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. |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: So 11.12.10 22:40 | |
Chyba by mala zmiznúť po nainštalovaní .NET Framework-u. |
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: So 11.12.10 23:05 | |
|
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
|
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. |
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: Po 13.12.10 11:28 | |
|
|
|
|
