Anonymní profil Tom – Programujte.com

a keby ste vy spravili nejaky narychlo projekt vo MS visual studio 2010 a hodili ho sem a ja len skopnem kod?

#48 z_moravec
a keby ste vy spravili nejaky narychlo projekt vo MS visual studio 2010 a hodili ho sem a ja len skopnem kod?

#45 z_moravec
tak v detailoch tej tabulky sa pise toho viac ale to by bolo na viac screenoch kedze sa tabulka neda zvacsit

#43 z_moravec
no nechal som len toto.       ale ked spravim build zapnem aplikaciu kliknem na tlacitko aby spustilo odkaz tak naskoci toto http://imageshack.us/photo/my-images/196/beznzvuvv.jpg/

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call runAS("notepad.exe")
    End Sub

#40 z_moravec
cize ak som to spravne pochopil cele toto mam vyhodit hej?

Sub runAS(ByVal param As String)

#38 liborb
ono to nieje aplikacia ktora otvara notepad ten notepad je tam len ako priklad uvedeny. skus mi tu spranvu odpoved vysvetlit tak aby som to pochopil co tam trea presne spravit

#36 liborb
to nemozem    takto mi nevies pomoct?

#34 liborb
no ja to robim cez Windows Form nepises len cisto kod

#32 liborb
ale coho cely kod ? celej aplikacie?

#30 liborb
a co stym? ved mam tak jedno tlacitko napisane a stale pise ze Sub runAS sa opakuje

#28 liborb
to mam ako do ktoreho tlacitka skopirovat ? :)

#26 liborb
tak najprv musim mat nastavene aspon 2 tlacitka potom ostatne uz nebude problem len skopnem kod a prepisem nazov exe suboru respektive odkaz na exe subor

#24 liborb
to je cely kod ku jednemu tlacitku

#22 liborb

Private Sub PictureBox2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call runAS("notepad.exe")
    End Sub

    Sub runAS(ByVal param As String)
        Dim process As System.Diagnostics.Process = Nothing
        Dim processStartInfo As System.Diagnostics.ProcessStartInfo
        processStartInfo = New System.Diagnostics.ProcessStartInfo()

        processStartInfo.FileName = "notepad.exe" 'program co chces spustit

        If System.Environment.OSVersion.Version.Major >= 6 Then
            ' Run as admin on Windows Vista or higher
            processStartInfo.Verb = "runas"
        End If
        ' processStartInfo.Arguments = "args" 'arguments
        processStartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
        processStartInfo.UseShellExecute = True

        Try
            process = System.Diagnostics.Process.Start(processStartInfo)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If Not (process Is Nothing) Then
                process.Dispose()
            End If
        End Try
    End Sub

#20 liborb
stale mi pise ze Sub runAS sa opakuje :(

#18 z_moravec
napis to pre neprogramatorov :)

#16 liborb
a potom ako nastavim dalsie tlacitka ked tam nemozem dat tu funkciu?

#14 liborb
no ale ja nesom programator ani nemam cas sa ucit zaklady atd len potrebujem tu aplikaciu naprogramovat nic viac tak nemozems mi sem hodit upraveny skript?

#12 liborb
cize Sub runAS() vymazat z ostatnych a nechat len v jednom tlacitku?

#10 liborb
cize ten skript treba nejako upravit? nemozes sem skopnut upraveny skript ?

#8 liborb
to som pochopil ze to tam mam viac krat ale tomu dalsiemu co si tanpisal ze volat z reakcí na tlačítko třeba 100x tomu som nepochopil

#6 liborb
pri spustani v debugmode pise toto:

Error 1 'Public Sub runAS()' has multiple definitions with identical signatures.

#4 liborb
no jeden mi poslal tento skript ale v ultimate mi to nejako nechce ist tak preto piem ci nieje ina moznost bez cesty

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        call runAs()
    End Sub

    Sub runAS()
        Dim process As System.Diagnostics.Process = Nothing
        Dim processStartInfo As System.Diagnostics.ProcessStartInfo
        processStartInfo = New System.Diagnostics.ProcessStartInfo()

        processStartInfo.FileName = "notepad.exe" 'program co chces spustit

        If System.Environment.OSVersion.Version.Major >= 6 Then
          ' Run as admin on Windows Vista or higher
         processStartInfo.Verb = "runas"     
        End If
        ' processStartInfo.Arguments = "args" 'arguments
        processStartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
        processStartInfo.UseShellExecute = True

        Try
            process = System.Diagnostics.Process.Start(processStartInfo)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If Not (process Is Nothing) Then
                process.Dispose()
            End If
        End Try
    End Sub

#2 liborb
ale tam je cesta k suboru. nvm ci to pomoze ale palikaciu robim vo MS visual studio 2010 ultimate

potreboval by som skript ktory by spustil po kliknuti na tlacitko odkaz na exe subor ale v tom skripte nesmie byt cesta k odkazu odkaz bude priamo pri tej aplikacii a tych tlacitiek bude 5 a kazde tlacitko bude spustat iny odkaz na iny EXE subor