VB.NET Cue Textbox Bannière pas mise - pas d'erreur

Question

(je l'ai enlevé la vieille car il est redondant)

EDIT -

Même sans aucune connaissance de C#, j'ai essayé de Convertissez le code que Lars m'a indiqué ... Géré pour le compiler. Et utilisable depuis la boîte à outils. Cependant, il ne semble pas CueTextBox1.Cue = "Test" fonctionne. Encore une fois, aucune erreur ne semble être produite. J'ai vérifié et la propriété de cue a été ajoutée aux propriétés pour le CueTextBox, mais le changer ne change pas la cue, ou apparemment n'importe quoi d'ailleurs. Voici le code converti:

Imports System 
Imports System.ComponentModel 
Imports System.Windows.Forms 
Imports System.Runtime.InteropServices 

Class CueTextBox 
    Inherits TextBox 
    Public Property Cue() As String 
     Get 
      Return mCue 
     End Get 
     Set(value As String) 
      mCue = value 
      updateCue() 
     End Set 
    End Property 

    Private Sub updateCue() 
     If (Me.IsHandleCreated And mCue = Nothing) Then 
      SendMessage(Me.Handle, &H1501, New IntPtr(1), mCue) 
     End If 
    End Sub 

    Protected Overrides Sub OnHandleCreated(e As EventArgs) 
     MyBase.OnHandleCreated(e) 
     updateCue() 
    End Sub 

    Private mCue As String 

    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _ 
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As  Integer, ByVal wp As IntPtr, ByVal lp As String) As IntPtr 
    End Function 
End Class 

Comme suggéré Plutonix, j'ai changé la dernière PARAM la PInvoke Malheureusement il n'y avait pas de changement. Voici le bloc mis à jour.

<DllImport("user32.dll", CharSet:=CharSet.Auto)> _ 
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> LParm As String) As IntPtr 
    End Function 

EDIT2 -

obtenir encore la même question comme indiqué dans le titre. Toute aide serait grandement appréciée. La queue fonctionne en vue de conception, mais lors de la compilation, dans certains projets, la queue ne parvient pas à définir.

Answer 1

Un grand merci à @Plutonix. Le code fixe et entièrement fonctionnel est comme suit. Le problème était dans updateCue(), principalement avec mCue = Nothing. Changement à String.IsNullOrEmpty (mCue) = False résout le problème. Mais comme l'a souligné @Plutonix, Supprimer la vérification permettrait de passer des chaînes vides.

Imports System 
Imports System.ComponentModel 
Imports System.Windows.Forms 
Imports System.Runtime.InteropServices 

Class CueTextBox 
    Inherits TextBox 
    Public Property Cue() As String 
     Get 
      Return mCue 
     End Get 
     Set(value As String) 
      mCue = value 
      updateCue() 
     End Set 
    End Property 

    Private Sub updateCue() 
     If (Me.IsHandleCreated) Then 
      SendMessage(Me.Handle, &H1501, New IntPtr(1), mCue) 
     End If 
    End Sub 

    Protected Overrides Sub OnHandleCreated(e As EventArgs) 
     MyBase.OnHandleCreated(e) 
     updateCue() 
    End Sub 

    Private mCue As String 

    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _ 
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wp As IntPtr, <MarshalAs(UnmanagedType.LPWStr)> LParm As String) As IntPtr 
    End Function 
End Class 

EDIT - Cette semi-officielle. Pour une raison quelconque, le signal n'apparaît toujours pas à l'exécution sur certains projets. Cela me porte à croire qu'il y a un problème avec ces projets. Quant à quoi, je ne sais pas.