matthiasr

Die habe ich schon gefunden, auch die Char Funktion, aber ich brauche etwas anderes. Ich habe verschiedene Zeichen und muss aus diesen Buchstaben herausfiltern. Ich will ja nun nicht jeden einzelnen Buchstaben abfragen sondern würde gerne nach dem Hex Wert vergleichen( Größer 65(A) kleiner 122(z)). Dazu muss ich das Zeichen in den Hex Wert modeln und dann vergleichen, oder? Verzeih aber ich stehe am Anfang.

Ich möchte in VB einzelne Zeichen auf Ihren Hexadezimal-Wert vergleichen. Welche Funktion beötige ich hierfür? Danke

Also, ich habe win2000 und habe mir eine weitere Partion für win98 angelegt. Habe dann win98 installiert und auch den Status bei win2000 wieder auf aktiv primär gesetzt. Wenn ich nun den BootMagic konfigurieren möchte kann ich allerdings nur als weiteres Betriebssystem win98 oder dos auswählen. Versuchshalber habe ich beim booten dies dann auch gewählt, dabei rauskommen tut allerdings nur dos. Wo liegt der Hase begraben?

Also bei Dir fühlt man sich als Anfänger wirklich aufgehoben, stimmt da habe ich nicht genau genug hingeguckt beim kopieren. Das man die Klammern weglassen kann, oder muss wusste ich nicht. Nun ruft aber die Heimat und ich kann es erst morgen testen würde mich aber freuen wenn ich mich wieder an Dich wenden kann. Vielen Dank Matthias

Da kommt mir doch noch eine Frage. Wenn ich in C diese Funktion verwende da ist das Schlüsselwort HKEY_CURRENT_USER bekannt, ich brauch es nicht erst declarieren. Ist das normal in VB. Desweitern ist mir aufgefallen das ich bei RegOpenKeyEx den Rückgabewert abfangen muss, wenn ich das weglassen bekomme ich eine Fehlermeldung. Hat mich sehr überrascht. Vieleicht kannst Du mir das auch etwas näher erklären. Matthias

Ja die Funktionen sind noch nicht vollständig, aber die Function ist scheinbar immer noch nicht definiert. Was fehlt mir dan noch???? Option Explicit Private Sub Form_Load() Dim sValueName As String Dim sKeyName As String Dim lRetVal As Long 'result of the API functions Dim hKey As Long 'handle of opened key Dim vValue As Variant 'setting of queried value sKeyName = "Verdienst" lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\\Indatec\\Questico", _ 0, KEY_ALL_ACCESS, hKey) lRetVal = QueryValueEx(hKey, sValueName, vValue) RegCloseKey (hKey) txtPrice = vValue End Sub

Weis nicht, also ich bin über das Projekt-Fenster zu einem neuen Modul gelangt (Modul1) und in dem Prokjekt Pfad gibt es nun auch einen Pfad Modul. Ich habe dann auch die Declaration für die API's eingefügt (siehe unten) aber ich bekomme nun die Fehlermeldung " Sub oder Function nicht definiert". Wo liegt den nun der Hammer begraben, und ich dachte VB sei leichter als C, da nutze ich einfach die Funktion binde vielleicht noch ne dll ein und fertig. Aber ich werd das schon noch schaffen, aber schau es Dir doch bitte nochmals an. Danke Matthias (Modul1) Option Explicit Public Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue _ As Long) As Long Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _ (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long (Fromular) Option Explicit Private Sub Form_Activate() Const HKEY_CURRENT_USER = &H80000001 Const KEY_ALL_ACCESS = &H3F Dim sValueName As String Dim sKeyName As String Dim lRetVal As Long 'result of the API functions Dim hKey As Long 'handle of opened key Dim vValue As Variant 'setting of queried value MsgBox ("2") lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, KEY_ALL_ACCESS, hKey) lRetVal = QueryValueEx(hKey, sValueName, vValue) RegCloseKey (hKey) txtPrice = vValue End Sub Private Sub Form_Load() MsgBox ("1") End Sub

Sorry Modul?

Ich möchte mich mit VB befassen und bin gerade dabei meine erste Anwendung zu erstellen. Ich programmiere bereits etwas in C/C++ und möchte behaupten das ich mich grundsätzlich auch in VB orientieren kann. Nun denn meine Anwendung soll einige Werte aus der Regiestry auslesen und hierzu möchet ich die API-Funktion QueryValueEx verwenden. Hierfür habe ich in der MSDN auch ein sehr schönens Beispiel gefunden welches ich für meine Zwecke veränder habe. Ich weis auch schon das ich die Funktion extra deklarieren muss mit alias usw. aber ich bekomme immer wieder Fehlermeldungen wie "Konstanfen, Zeichenfolgen fester Länge, benutzerdefinierte Array und Declare-Anweisungen sind als öffentliche Mittglieder von Objektmodellen nicht zugelasen." Was mache ich falsch???? Schaut Euch doch mal meinen Code an denn der sollte eigentlich dem aus dem Beispiel sinngemäß entsprechen. (Beispiel in der msdn "HOWTO: Use the Registry API to Save and Retrieve Setting" Option Explicit Public Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue _ As Long) As Long Private Sub Form_Activate() Const HKEY_CURRENT_USER = &H80000001 Const KEY_ALL_ACCESS = &H3F Dim sKeyName As String Dim lRetVal As Long 'result of the API functions Dim hKey As Long 'handle of opened key Dim vValue As Variant 'setting of queried value lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, KEY_ALL_ACCESS, hKey) lRetVal = QueryValueEx(hKey, sValueName, vValue) RegCloseKey (hKey) txtPrice = vValue End Sub

Wunderbar, genau nach dem ich gesucht habe und es immer wieder übersah. Schlimm mit mir. Danke Matthias

Hab ich gleich zu Beginn probiert, mich nicht weitergebracht da ich keine neue Zeile beginnen kann. Aber Danke

Ich habs nicht vergessen, ich habs einfach nicht gemacht (gewuss). Es hat sich aber an meinem Problem nichts geändert, ich benötige einen Befehl mit dem ich, wie bei der ListBox::AddString, Zeilen einfügen kann die dann auf dem Bildschirm, in dem Steuerelement angezeigt werden. Matthias

Kann mir einer sagen wie die Prüfungen in München ausgefallen sind (prozentual)? Danke

Wie kann ich in eine Eingabefeld mehrere Zeilen schreiben, die Eigenschaften habe ich auf Mehrzeilig gesetzt allerdings finde ich nicht den richtigen Befehl der es mir ermöglicht diese Eigenschaft auch auszu nützen. Vielen Dank

So ein Schmuddl, mit ModifyMenu(hSubMenu, 3, MF_STRING | MF_BYPOSITION, (UINT)hSubMenu, szStr); also ohne MF_POPUP haut es wunderbar hin. Ist programmieren nicht einfach? Einfacher wird es wenn man einen guten Klotzkopp hintersich weis. Wiedereinmal Danke matthiasr

Ich nutze nun diese Zeile ModifyMenu(hSubMenu, 3, MF_POPUP | MF_STRING | MF_BYPOSITION, (UINT)hSubMenu, szStr); damit konnte ich zwar den Namen des Popups beeinflussen, nun ist aber das Popupmenü leer. Wenn ich es mit InsertMenu füllen möchte habe ich wiederum nur zugriff auf das Menü Ansicht dessen Handler ich benutze. Wie befülle ich das Popupmenü wieder richtig und, muss ich das überhaupt machen, ist das sinn der Sache oder sollte es nicht doch einfacher gehen. Ich muss wenn ich das Menü "Datei" umbenenne auch nicht das ganze Menü wieder befüllen? matthiasr

OK. Ich habe ein Menü mit den Menüpunkten "Datei", "Ansicht" und "?". In dem Menü "Anischt" gibt es ein Popupmenü, "Sprache". Genau dieses Popupmenü , "Sprache" möchte ich beeinflussen. Ich kann aber, auch mit Deiner Anleitung, nur die erste Ebene, also "Datei", "Ansicht" und "?" beeinflussen. Ich habe aber das richtige Handle zum Menü "Ansicht", dies konnte ich feststellen als ich versuchte dieses Menü in Menü "Datei" zu erstellen. Mag sich komisch anhören aber es ging. Nun fehlt mir aber das Handle bzw. der Zugriff auf das Popupmenü "Sprache" . Darum geht es bei mir. Ich hoffe das ich es nun verständlicher erklärt habe. matthaisr

Ich komme aber nicht auf die zweite Ebene herunter, ich kann bzw. konnte schon vorher die Einzelnen Menünamen verändern, aber auch mit Deinem Tipp komme ich nicht auf das PopupMenü. Das Problem, liegt meiner Meinung nach, bei der Position. Der Index beginnt in einem Untermenü wieder bei '0', wie kann ich diferenzieren das ich z.B. im Menü Datei das PopupMenp Senden umbenennen möchte? matthiasr

Hardware-Technisch lösen wir das in der Firma mit dem SIOCHECK, das is nee Software. Wir haben einen zweiten Rechner der Über ein Verbindungskabel an den Port angeschlossen wird und dadurch kann ich mithören was über den Port raus geht. Vieleicht konnte ich Dir auch mal damit helfen. matthiasr

Wieder mal ein Problem mit nem Menü. (VisualStudio) In einem Meiner Menüpunkte habe ich ein Popup-Menü und ich möchte dessen Namen ändern. Der Menüpunkt hat den Index 1 und das Popup steht an pos 3 nach einem Seperator. Schaut Euch doch mal meinen Code an und schreib mir was ich falsch gemacht habe. Nach einigen Versuchen habe ich herausgefunden, dass ich das Richtige Handle fürs SubMenü habe, aber dann nicht das Popup beeinflussen kann. HMENU hSubMenu; hSubMenu = GetSubMenu(hMenu,1); pRLL->LoadString(IDS_LANGUAGE, szStr, sizeof(szStr)); ModifyMenu(hMenu, 1, MF_POPUP, (UINT Menu, szStr);

Lese ich gerade.

Ich werde mal mein Glück versuchen. Die Nachricht habe ich eingefügt aber weiter weis ich ersteinmal nicht. Ich arbeite gerade daran die Hilfetexte anzupassen, bin aber für jede Hilfe sehr dankbar, ehrlich. Matthias

Wie kann ich es arrangieren das ich bei meiner Anwendung mittels F1 die Hilfe aufrufen kann? Es kommt stets nur eine Fehlermeldung das ich mich an den Softwarehersteller wenden solle, aber der weis es ja auch nicht....?! Danke

Das füllen klappt mit OnInitDialog() wirklich gut, der nächste Schritt ist die Auswertung des gewählten eintrages. Mal schaun wie weit ich komme. Danke matthiasr

Danke, leider muss ich jetzt davon laufen, und kann deshalb erst morgen meine Versuche preisgeben. matthiasr