vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Click Ereignis 
Autor: Blackbox
Datum: 06.02.18 15:50
Hallo,

das geht schon über die WinAPI.

In die Form, die aufgerufen wird baue eine Public Property, die die HWND des Text-Controls aufnimmt.
Beispiel: 

Private m_hWnd As Long
 
Public Property Let TexHWND(ByVal nh As Long)
   m_hWnd = nh
End Property
Bevor die Form2 also aufgerufen wird:

Load Form2
Form2.TexHWND = Text1.hwnd
Form2.Show

In der Form2 dann deklarieren: 

Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" ( _
     ByVal hwnd As Long, _
     ByVal lpString As String) As Long
Dann irgendwo diese Funktion aufrufen:

SetWindowText m_hWnd, ""

und schon ist die Textbox in der Form1 blank ...

Form1.Text1 = "" ist aber viel kürzer ;)

Anstatt Public Property Let texHWND() in der Form2 kannst Du in der Form2 auch schreiben:

Public texHWND As Long

Beitrag wurde zuletzt am 06.02.18 um 15:56:50 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Click Ereignis1.180Manfred4406.02.18 13:27
Re: Click Ereignis651Blackbox06.02.18 15:50
Re: Click Ereignis562Manfred4413.02.18 14:51
Re: Click Ereignis588Manfred X13.02.18 17:45
Re: Click Ereignis538Manfred4428.02.18 18:30
Re: Click Ereignis534Manfred X01.03.18 08:52
Re: Click Ereignis625Franki07.02.18 03:47

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel