Γενικά θέματα ανάπτυξης για τα Windows Vista & Windows 7

Απ: Κλειδωμα του μενου εναρξης

dimcal — Sun, 14 Jun 2009 19:39:45 GMT

Ενταξει δουλεψε κανονικα! Σε ευχαριστω πολυ φιλε μου και ολους οσους ενδθαφερθηκαν να βοηθησουν ....

Απ: Κλειδωμα του μενου εναρξης

darklynx — Sun, 14 Jun 2009 07:14:02 GMT

Για κάποιο λόγο δε σου τρέχει ο keyboard hook,θα πρέπει να το ψάξεις λίγο.Π.χ μετά την κλήση της συνάρτησης SetWindowsHookEx βάλε τον εξής κώδικα:

If hhk = IntPtr.Zero Then
    System.Diagnostics.Debug.WriteLine("Hook creation failure")
End If

Σε εμένα τρέχει κανονικά.

Απ: Κλειδωμα του μενου εναρξης

dimcal — Sun, 14 Jun 2009 05:37:04 GMT

Εξαφανιστηκε τωρα και το start κουμπι και η taskbar αλλα οταν παταω το κουμπι με την σημαια ανοιγει μονο του μενου!!! Τα εξαφανιζουμε ενα ενα πρωτα την μπαρα τωρα εξαφανισαμε και το κουμπι εναρξη .... Τωρα μενει να εξαφανισουμε και το μενου!!!

Για καποιο λογο δεν παιζει η συναρτηση..... εσενα σου τρεχει κανονικα?

Απ: Κλειδωμα του μενου εναρξης

darklynx — Sun, 14 Jun 2009 00:01:03 GMT

dimcal:

Υπαρχει ενα προβλημα .Εχεις γραψει την δομη σε Visual C το τελευταιο τυπο της μεταβλητης δεν το βρισκω στη vb....το μετετρεψα ετσι :

Public Structure KBDLLHOOKSTRUCT

Public vkCode As UInt16

Public scanCode As UInt16

Public flags As UInt16

Public time As UInt16

Public dwExtraInfo

End Structure

Η dwExtraInfo είναι τύπου System.UIntPtr που,αν και μη CLS-compliant- νομίζω είναι προσβάσιμη και από τη VB.NET.Αν αντιμετωπίζεις προβλήματα πάντως μπορείς να την μετατρέψεις σε IntPtr δίχως καμία επίδραση σε αυτό το project.

dimcal:

και κατι αλλο εκει που γραφεις :

KeyboardHoocProc = New HookProc(KeyboardHookHandler)

η KeyboardHookHandler ειναι συναρτηση ,δεν θελει παραμέτρους?

Ναι,παράλειψή μου,έπρεπε να γράφει

KeyboardHoocProc = New HookProc(AddressOf KeyboardHookHandler)

Απ: Κλειδωμα του μενου εναρξης

dimcal — Sat, 13 Jun 2009 17:20:42 GMT

Υπαρχει ενα προβλημα .Εχεις γραψει την δομη σε Visual C το τελευταιο τυπο της μεταβλητης δεν το βρισκω στη vb....το μετετρεψα ετσι :

Public Structure KBDLLHOOKSTRUCT

Public vkCode As UInt16

Public scanCode As UInt16

Public flags As UInt16

Public time As UInt16

Public dwExtraInfo

End Structure

και κατι αλλο εκει που γραφεις :

KeyboardHoocProc = New HookProc(KeyboardHookHandler)

η KeyboardHookHandler ειναι συναρτηση ,δεν θελει παραμέτρους?

Απ: Κλειδωμα του μενου εναρξης

dimcal — Sat, 13 Jun 2009 17:00:06 GMT

Ολες τις απαντησεις τις διαβασα και σας ευχαριστω πολυ ολους .... απλα ειπες οτι αν ηθελα μια fullscreen εφαρμογη υπαρχει πιο ευκολος τροπος . Θα δοκιμασω το hook και θα σας γραψω τι εγινε

Απ: Κλειδωμα του μενου εναρξης

darklynx — Sat, 13 Jun 2009 07:14:43 GMT

 dimcal:

Ναι αλλα ακομα και να γινει autohide οταν πατησεις Ctrl+Esc θα εμφανιστει παλι το μενου .Το προβλημα ειναι να μην φαινεται οταν καπιος πατησει αυτο το συνδυασμο...γιατι και τωρα το καλυπτει η φορμα

Φαντάζομαι δεν μπήκες στον κόπο να διαβάσεις τον κώδικα που σου έγραψα για το keyboard hook,ο οποίος απενεργοποιεί και τα δύο windows keys και τον συνδυασμό Ctrl+Esc και αυτή η ρύθμιση διαρκεί μόνο όσο η φόρμα είναι ανοικτή(που από ότι κατάλαβα αυτό επιθυμείς).Τέσπα,εγώ σου έδωσα μια λύση,αν θες την χρησιμοποιείς.

Τώρα όσον αφορά το πώς θα κάνεις την εφαρμογή σου fullscreen:όπως είπαμε η φόρμα σου χρειάζεται τις εξής ιδιότητες:

Me.TopMost = True
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Bounds = Screen.PrimaryScreen.Bounds
 
 
Αυτός ο συνδυασμός δίνει μια φόρμα που καλύπτει όλη την οθόνη(και την taskbar).Μαζί με τον keyboard hook που έγραψα(χωρίς το τμήμα του κώδικα που κρύβει την taskbar) φτάνουν για να 
καλύψουν τις ανάγκες σου.Όμως δεν είναι πραγματικά fullscreen εφαρμογή και αν σε ενδιαφέρει το πως θα γίνει παρακολούθησε παρακάτω.
 
Δήλωσε την εξής δομή:
 
<StructLayout(LayoutKind.Sequential)> _ 
Public Structure DEVMODE
    Public Const CCHDEVICENAME As Integer = 32
    Public Const CCHFORMNAME As Integer = 32
    
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst := CCHDEVICENAME)> _ 
    Public dmDeviceName As String
    Public dmSpecVersion As Short
    Public dmDriverVersion As Short
    Public dmSize As Short
    Public dmDriverExtra As Short
    Public dmFields As Integer
    
    Public dmOrientation As Short
    Public dmPaperSize As Short
    Public dmPaperLength As Short
    Public dmPaperWidth As Short
    
    Public dmScale As Short
    Public dmCopies As Short
    Public dmDefaultSource As Short
    Public dmPrintQuality As Short
    Public dmColor As Short
    Public dmDuplex As Short
    Public dmYResolution As Short
    Public dmTTOption As Short
    Public dmCollate As Short
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst := CCHFORMNAME)> _ 
    Public dmFormName As String
    Public dmLogPixels As Short
    Public dmBitsPerPel As Integer
    ' Declared wrong in the full framework
    Public dmPelsWidth As Integer
    Public dmPelsHeight As Integer
    Public dmDisplayFlags As Integer
    Public dmDisplayFrequency As Integer
    
    Public dmICMMethod As Integer
    Public dmICMIntent As Integer
    Public dmMediaType As Integer
    Public dmDitherType As Integer
    Public dmReserved1 As Integer
    Public dmReserved2 As Integer
    Public dmPanningWidth As Integer
    Public dmPanningHeight As Integer
    
    Public dmPositionX As Integer
    ' Using a PointL Struct does not work 
    Public dmPositionY As Integer
    
End Structure
 
 
Και αντίστοιχα μέσα στη φόρμα σου τις ακόλουθες Win32 συναρτήσεις:
 
<DllImport("user32.dll")> _ 
Public Shared Function ChangeDisplaySettings(ByRef devMode As DEVMODE, ByVal flags As UInteger) As Integer
End Function

<DllImport("user32.dll")> _ 
Public Shared Function EnumDisplaySettings(ByVal deviceName As String, ByVal modeNum As Integer, ByRef devMode As DEVMODE) As Integer
End Function
 
 
Χρειάζεσαι τέλος το εξής μέλος δεδομένων:
 
 
Private dev As DEVMODE
 
 
Στο Load event της εφαρμογής σου χρειάζεσαι τον εξής κώδικα:
dev = New DEVMODE()
dev.dmDeviceName = New String(New Char(31) {})
dev.dmFormName = New String(New Char(31) {})
dev.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))

EnumDisplaySettings(Nothing, -1, dev)

ChangeDisplaySettings(dev, &H4)
 
 
Και τέλος τον παρακάτω κώδικα στο FormClosed event:
 
ChangeDisplaySettings(dev, 0)
 
 
Υ.Γ:Σημείωσα με ευκρίνεια στο προηγούμενο post ποιο κομμάτι του κώδικα αφορά τον hook,ώστε να μη δημιουργηθεί πρόβλημα να τον ξεχωρίσεις.

Απ: Κλειδωμα του μενου εναρξης

dimcal — Sat, 13 Jun 2009 06:26:57 GMT

Απ: Κλειδωμα του μενου εναρξης

nikolaosk — Sat, 13 Jun 2009 04:27:15 GMT

αν πας και κάνεις αρχικά το taskbar- autohide με το χέρι,

και μετά τρέξεις αυτό τον κώδικα, που σου είχα ξαναστείλει..... θα εξαφανιστεί το windows start button.

όμως τα keyboard shortcuts παίζουνε.....

Option Explicit On
Imports System.Runtime.InteropServices

Public Class Form1

    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Const SWP_HIDEWINDOW = &H80
    Const SWP_SHOWWINDOW = &H40
    Dim taskBar As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        taskBar = FindWindow("Shell_traywnd", "")

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Hide" Then
            Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW))
            Button1.Text = "Show"
        Else
            Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW))
            Button1.Text = "Hide"
        End If

    End Sub
End Class

Απ: Κλειδωμα του μενου εναρξης

nikolaosk — Sat, 13 Jun 2009 04:02:24 GMT

Για δες λίγο αυτό,

http://www.lytebyte.com/2007/06/19/improve-gaming-experience-in-pc-by-disabling-windows-key/

δεν το έχω δοκιμάσει.... είναι από Googling!!!!

Απ: Κλειδωμα του μενου εναρξης

dimcal — Sat, 13 Jun 2009 02:42:15 GMT

Τις 3 γραμμες κωδικα που μου εδωσες τις εχω ηδη κανει και επιμενει να εμφανιζεται το μενου ... Προφανως αυτο που ζηταω θα γινεται με το API .Επειδη δεν ειμαι πολυ εξοικιωμενος με τα windows API μπορεις να μου πεις με απλα λογια πως θα το χρησιμοποιησω ; ευχαριστω για την υπομονη σου....

Απ: Κλειδωμα του μενου εναρξης

darklynx — Sat, 13 Jun 2009 00:02:40 GMT

dimcal:
fullscreen εφαρμογη θελω να φτιαξω αλλα πρεπει να μη επιτρεπει στο χρηστη να ανοιγει το μενου εναρξη ... Την εχω φτιαξει τη φορμα να παιρνει τις διαστασεις της οθονης αλλα οταν πατησεις Ctrl+Esc η το κουμπι με τη σημαια τοτε η taskbar εμφανιζεται πανω απ τη φορμα....

Οπότε ξέχνα αυτό με το κρύψιμο της taskbar.Βάλε τις εξής ιδιότητες στη φόρμα σου

Me.Bounds = Screen.PrimaryScreen.Bounds
Me.TopMost = True
Me.FormBorderStyle = FormBorderStyle.None

και σε συνεργασία με την ChangeDisplaySettings του Windows API με flag CDS_FULLSCREEN θα έχεις μια πραγματικά fullscreen εφαρμογή.

 dimcal:
α και την εφαρμογη τη γραφω σε vb 2008 οπως ειπα ,εχω γνωσεις C++ αλλα δεν εχω ασχοληθει με την Visual C++ η την Visual C# ποτε ....

Έγινε.Παρότι όμως δεν το θεωρώ ιδιαίτερα σημαντικό να γνωρίζεις να γράφεις πάνω από μία γλώσσα,είναι πολύ σημαντικό να γνωρίζεις να διαβάζεις όσες περισσότερες μπορείς,διαφορετικά χάνεις εξαιρετικά μεγάλο ποσοστό του κώδικα που κυκλοφορεί στο internet και μπορεί να σου λύνει τα χέρια αρκετές φορές.

Απ: Κλειδωμα του μενου εναρξης

dimcal — Fri, 12 Jun 2009 17:45:01 GMT

α και την εφαρμογη τη γραφω σε vb 2008 οπως ειπα ,εχω γνωσεις C++ αλλα δεν εχω ασχοληθει με την Visual C++ η την Visual C# ποτε ...

Απ: Κλειδωμα του μενου εναρξης

dimcal — Fri, 12 Jun 2009 17:40:06 GMT

fullscreen εφαρμογη θελω να φτιαξω αλλα πρεπει να μη επιτρεπει στο χρηστη να ανοιγει το μενου εναρξη ... Την εχω φτιαξει τη φορμα να παιρνει τις διαστασεις της οθονης αλλα οταν πατησεις Ctrl+Esc η το κουμπι με τη σημαια τοτε η taskbar εμφανιζεται πανω απ τη φορμα....

Απ: Κλειδωμα του μενου εναρξης

darklynx — Fri, 12 Jun 2009 15:56:51 GMT

Έγινε