Твитнуть
есть ктонибудь на форуме кто знает язык программирывание visual basic ?
-
Samsung UE48H6290+Dune TV102-N,Lg Led55+Dune TV101 -
Re: Visual basic 2010
Что за проблема?xTreamer 2.4.2S / 500 GB HDD + kartinaTV + rodnoeTV
Kathrein UFS910 / 500GB HDD / AAF Hot Summer Image V2
Nokia dBox-2 Neutrino
S-100 Daxtor Image -
Re: Visual basic 2010
с написал программы обновления тоесть нажимаеш скачать обновления валазиет "save file dialog" но проблема я подписаваю
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
но  когда вылазиет диалог имя не подписываетсяКод:ShowDialog:         SaveFileDialog1.ShowDialog()                     SaveFileDialog1.DefaultExt = "exe"             SaveFileDialog1.FileName = "version"
рещил переписать для проверке так
 как и положено еслив в строке пусто диалог выскакивает с именем вопрос в том почему в первом вареанте не дописывается имя файлаКод:If SaveFileDialog1.FileName = Nothing Then             SaveFileDialog1.DefaultExt = "exe"             SaveFileDialog1.FileName = "version"             GoTo ShowDialog         End If         Pfad = SaveFileDialog1.FileName = "version"         Pfad = SaveFileDialog1.DefaultExt = "exe"
           Samsung UE48H6290+Dune TV102-N,Lg Led55+Dune TV101Комментарий
-
Re: Visual basic 2010
В первом случае ты сначала диалог вызываешь, а потом подписываешьxTreamer 2.4.2S / 500 GB HDD + kartinaTV + rodnoeTV
Kathrein UFS910 / 500GB HDD / AAF Hot Summer Image V2
Nokia dBox-2 Neutrino
S-100 Daxtor ImageКомментарий
-
Re: Visual basic 2010
еслив не указать диалог то он и не покажет ево
тоест ето я недописал в сообшении молец второй код
Код:ShowDialog: SaveFileDialog1.ShowDialog() If SaveFileDialog1.FileName = Nothing Then SaveFileDialog1.DefaultExt = "exe" SaveFileDialog1.FileName = "version" GoTo ShowDialog End If Pfad = SaveFileDialog1.FileName = "version" Pfad = SaveFileDialog1.DefaultExt = "exe"Samsung UE48H6290+Dune TV102-N,Lg Led55+Dune TV101Комментарий
-
Re: Visual basic 2010
Не понятен смысл последниx двуx строчек:
Pfad = SaveFileDialog1.FileName = "version"
Pfad = SaveFileDialog1.DefaultExt = "exe"xTreamer 2.4.2S / 500 GB HDD + kartinaTV + rodnoeTV
Kathrein UFS910 / 500GB HDD / AAF Hot Summer Image V2
Nokia dBox-2 Neutrino
S-100 Daxtor ImageКомментарий
-
Re: Visual basic 2010
[quote author=kisaru link=topic=7263.msg88737#msg88737 date=1286709924]
Не понятен смысл последниx двуx строчек:
Pfad = SaveFileDialog1.FileName = "version"
Pfad = SaveFileDialog1.DefaultExt = "exe"
[/quote]
Pfad ето на немецком путь к файлу
а еслив дословно то еслив выскакивает диалог и внем нечево ненаписано закроеш ево он выпрыгивает заново но уже с именем
вообшем сейчас загружу программуSamsung UE48H6290+Dune TV102-N,Lg Led55+Dune TV101Комментарий
-
Re: Visual basic 2010
Попробуй вот так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.DefaultExt = "exe"
SaveFileDialog1.FileName = "version"
SaveFileDialog1.ShowDialog()
end sub
xTreamer 2.4.2S / 500 GB HDD + kartinaTV + rodnoeTV
Kathrein UFS910 / 500GB HDD / AAF Hot Summer Image V2
Nokia dBox-2 Neutrino
S-100 Daxtor ImageКомментарий
-
Re: Visual basic 2010
[quote author=kisaru link=topic=7263.msg88785#msg88785 date=1286730865]
Попробуй вот так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.DefaultExt = "exe"
SaveFileDialog1.FileName = "version"
SaveFileDialog1.ShowDialog()
end sub
спосиба помогло
[/quote]Samsung UE48H6290+Dune TV102-N,Lg Led55+Dune TV101Комментарий
Комментарий