Visual Studio ερωτηση...

[YDinopoulos]

Καλησπερα

Φτιαχνω για εναν πελατη ενα μικρο προγραμμα που θα εχει 3 κουμπια. 1) Internet Explorer 2) ενα αλλο προγραμμα 3) Εξοδος.

Το προβλημα μου ειναι οτι οταν παταω το κουμπι 1 (ie) μου ανοιγει τον ie minimized κατω, ενω το θελω ειτε maximized, ειτε σαν παραθυρο.

Παραθετω τον κωδικα που εχω φτιαξει (Υποψιν οτι οι γνωσεις μου ειναι σχεδον στο μηδεν, το εχω φτιαξει με ψαξιμ στο νετ...)

Public Class Autostart

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("start /max C:\Program Files\Internet Explorer\iexplore.exe")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Shell("shutdown  /l /f")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("E:\KEFALAIO\KEF32.EXE")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

[Wizard!]

Για δοκίμασε αυτό:

Private Sub MaximizeIE()
For Each p As Process In Process.GetProcessesByName("iexplorer")
ShowWindow(p.MainWindowHandle, 3)
Next p
End Sub

[YDinopoulos]

Πως/που θα μπει αυτο ?

[nucleus]

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

Shell("start /max C:\Program Files\Internet Explorer\iexplore.exe")

For Each p As Process In Process.GetProcessesByName("iexplorer")

ShowWindow(p.MainWindowHandle, 3)

Next p

End Sub

Αυτό

[YDinopoulos]

[MENTION=1215]nucleus[/MENTION] Το αντικατεστησα. Πηγα να κανω rebuid solution (σωστο?) και μου πεταξε το εξης error κατω κατω..

Error 3 'ShowWindow' is not declared. It may be inaccessible due to its protection level.

[Wizard!]

Για δοκίμασε να προσθέσεις αυτό στον κώδικά σου:

Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer

[nucleus]

προσθέτεις την εντολή include Windows.h πάνω πάνω στο αρχείο

[nucleus]

Μάλλον δούλεψε

[YDinopoulos]

Πεταει error: Declaration expected

Η αρχη του κωδικα ειναι ετσι...

include Windows.h
Public Class Autostart
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("C:\Program Files\Internet Explorer\iexplore.exe")
        For Each p As Process In Process.GetProcessesByName("iexplorer")
            ShowWindow(p.MainWindowHandle, 3)
        Next p
    End Sub

[YDinopoulos]

Τελικα δουλεψε με αυτο...

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

System.Diagnostics.Process.Start("C:\Program Files\Internet Explorer\iexplore.exe")

End Sub

[nucleus]

Αφού είναι VB θέλει import και όχι include δηλαδή Oopss!!

Καλύτερα που απέφυγες την shell

[YDinopoulos]

Ειναι παραξενο ομως, γιατι με την shell ανοιγω στο δευτερο κουμπι ενα αλλο προγραμμα και μου ανοιγει αμεσως φουλ σκριν!

[PaNick]

Για δοκίμασε αυτό:

Private Sub MaximizeIE()
For Each p As Process In Process.GetProcessesByName("iexplorer")
ShowWindow(p.MainWindowHandle, 3)
Next p
End Sub

Μη δίνετε σε παιδιά ..όπλα!

Το αυτό και για τη χρήση του "windows.h" λίγο παρακάτω!

[YDinopoulos]

WTF ?

[nucleus]

Μη δίνετε σε παιδιά ..όπλα!

Το αυτό και για τη χρήση του "windows.h" λίγο παρακάτω!

Συντακτικά λάθη ftw

πχ το include windows.h το οποίο είναι παντελώς λάθος

For Each p As Process In Process.GetProcessesByName("iexplorer")

ShowWindow(p.MainWindowHandle, 3)

Next p

Δεν χρειάζεται το p μετά το keyword Next

Αυτα :baby:

[ApolloTonKosmo]

αντι για shell μπορεις να δοκιμασεις και αυτο

system.diagnostics.process.start()