Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
RibbonX - Teil 7 - Eingabefeld (Editbox)
zurück: RibbonX - Teil 8 - Menü weiter: RibbonX - Teil 6 - Eingebaute Steuerelemente Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mumpel
Fortgeschrittener


Verfasst am:
15. Jul 2008, 19:43
Rufname: René
Wohnort: Lindau (B)

RibbonX - Teil 7 - Eingabefeld (Editbox) - RibbonX - Teil 7 - Eingabefeld (Editbox)

Nach oben
       Version: Office 2007

In diesem Teil bauen wir ein Eingabefeld (Editbox) ein. Im folgenden Beispiel wird das Eingabefeld genutzt, um über TAPI eine telefonnummer zu wählen. Zuerst wird die Nummer eingegeben. Ein klick auf die Entertaste löst dann das Ereignis aus.

Erstellen Sie eine neue Arbeitsmappe. Fügen Sie ein neues Modul und in dieses den folgenden Makrocode ein.

Option Private Module
Option Explicit
Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, _
ByVal AppName As String, ByVal CalledParty As String, _
ByVal Comment As String) As Long
Public A$
Private Declare Function CallWindowProc Lib "user32.dll" _
Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_COMMAND As Long = &H111
Public objRibbon As IRibbonUI
Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Sub BoxWahlRaus(control As IRibbonControl, ByRef text)
Dim i As Integer
Dim Zelle As Integer
Dim A$
A$ = text
Telefonieren A, " "
End Sub
Sub Telefonieren(TelefonNr$, derName$)
Application.EnableCancelKey = False
Dim retval As Long
retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retval <> 0 Then
MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
End If
End Sub



Speichern und schließen Sie die Arbeitsmappe und öffnen diese dann mit dem CustomUI-Editor. Fügen Sie dann im Codefenster folgenden XML-Code ein.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="onload">
<ribbon><tabs>
<tab id="tabExcelvorlage" label="Telefonieren">
<group id="groupTelefonieren" label="Telefonieren">
<editBox id="ebx_Schnellwahl" onChange="BoxWahlRaus"
supertip = "Telefonnummernschnellwahl. Nummer eingeben und 
Entertaste drücken!"
sizeString="wwwwwwwwww" />
</group> </tab></tabs></ribbon></customUI>


Sie können auch die Testmappe nutzen.



XL07_EditBox.zip
 Beschreibung:

Download
 Dateiname:  XL07_EditBox.zip
 Dateigröße:  14.27 KB
 Heruntergeladen:  499 mal



Zuletzt bearbeitet von mumpel am 31. Aug 2011, 21:48, insgesamt einmal bearbeitet
mumpel
Fortgeschrittener


Verfasst am:
14. Okt 2008, 13:07
Rufname: René
Wohnort: Lindau (B)

AW: RibbonX - Teil 7 - Eingabefeld (Editbox) - AW: RibbonX - Teil 7 - Eingabefeld (Editbox)

Nach oben
       Version: Office 2007

Bücher zum Thema:

Das Excel-VBA Codebook (Melanie Breden/Michael Schwimmer)

Ribbon-Programmierung für Office 2007 (André Minhorst / Melanie Breden )
mumpel
Fortgeschrittener


Verfasst am:
13. Aug 2009, 18:35
Rufname: René
Wohnort: Lindau (B)


AW: RibbonX - Teil 7 - Eingabefeld (Editbox) - AW: RibbonX - Teil 7 - Eingabefeld (Editbox)

Nach oben
       Version: Office 2007

{Dient nur der Sortierung}
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Teil einer Formel Fett ? 1 ReneG8 2011 24. Jul 2008, 08:51
ReneG8 Teil einer Formel Fett ?
Keine neuen Beiträge Excel Formeln: Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge 3 Steph95 1721 28. Mai 2008, 17:43
Heinz Schweigert Teil einer Zelle anzeigen (=TEIL) bei unbek. Zeichenlänge
Keine neuen Beiträge Excel Formeln: Summenprodukt Teil einer zahl suchen und zählen 11 formicacid 3330 28. Mai 2008, 17:09
HermannZ Summenprodukt Teil einer zahl suchen und zählen
Keine neuen Beiträge Excel Formeln: Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2 2 Ruhrpottfriese 498 19. Mai 2008, 10:19
Ruhrpottfriese Hilfe bei verschaltelter Wenn-Funktion benötigt - Teil 2
Keine neuen Beiträge Excel Formeln: Summenprodukt mit Bedingung Teil der Zelle zB *NAV* ??? 5 Tobias.Sturm 1699 13. Mai 2008, 17:17
Tobias.Sturm Summenprodukt mit Bedingung Teil der Zelle zB *NAV* ???
Keine neuen Beiträge Excel Formeln: Aus einer Zelle ein Teil entnehmen 2 Rantanplan78 388 17. Apr 2008, 08:31
Rantanplan78 Aus einer Zelle ein Teil entnehmen
Keine neuen Beiträge Excel Formeln: Abfrage über Eingabefeld 1 Ich1980 385 14. März 2008, 17:31
Melanie Breden Abfrage über Eingabefeld
Keine neuen Beiträge Excel Formeln: Funktion Teil von hinten an zählen. 6 Saalko 5262 04. März 2008, 18:11
Saalko Funktion Teil von hinten an zählen.
Keine neuen Beiträge Excel Formeln: teil aus zeile löschen 4 freshbarcode 1111 25. Feb 2008, 20:50
freshbarcode teil aus zeile löschen
Keine neuen Beiträge Excel Formeln: teil der werte vergleichen und diese dann nicht übernehmen?? 2 redcab 485 11. Feb 2008, 12:07
Gast teil der werte vergleichen und diese dann nicht übernehmen??
Keine neuen Beiträge Excel Formeln: Eingabefeld und Formel 1 Manu LD 395 14. Jan 2008, 14:27
licht @ arbeit Eingabefeld und Formel
Keine neuen Beiträge Excel Formeln: Kann Mir Jemand Helfen - WENN, SVERWEIS, TEIL 2 Ekin 798 13. Nov 2007, 16:36
Claudy Kann Mir Jemand Helfen - WENN, SVERWEIS, TEIL
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage