|
Access : Benutzernamen in Access
Stelli1 am 22.11.2007 um 19:07 Uhr (0)
Hallo Volker,den NT Usernamen kannst du wie folgt ermitteln.Code: Diesen Code in ein Modul kopierenOption Compare DatabaseOption ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function NTUser() Dim vlst_User As String Dim vlin_Position As Integer Dim vlln_Laenge As Long Dim vlln_Return As Long vlln_Laenge = 255 vlst_User = String$(vlln_Laenge, 0) vlln_Return = GetUserName(vlst_User, vlln_Laenge) If vlln_R ...
| | In das Form Access wechseln |
|
AutoCAD VBA : Zeichnen in Formularen
Stelli1 am 26.07.2008 um 18:39 Uhr (0)
Hallo Sebastian,erst mal herzlich willkommen in VBA Forum für AutoCAD. Zitat:Original erstellt von Sebastian1:..beschäftige mich gerad das erste mal mit VBA unter AutoCad. Ich bitte also um Verständnis für mein wahrscheinlich triviales Problem.Ganz so trivial wird das nicht sein Unter VB6 gibt es einige Methoden um in eine Form oder eine Picturbox zu zeichnen.Bei VBA gibt es IMHO diese Methoden nicht.Code:Me.Picture1.Line (1, 1)-(400, 400)Me.Picture1.Circle (400, 400), 100, QBColor(1)Du sollest da an eine ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Drag & Drop in VBA
Stelli1 am 05.05.2006 um 13:13 Uhr (0)
Hallo Benny,habs mir nochmal angeschaut. Hier mal eine Version die ganz gut läuft. Das Problem ist noch die Rückgabe der Koordinaten der Mausposition. Die werden in einer anderen Scalierung zurückgegeben. Ich habs mal mit zwei Umrechnungsfaktoren gelöst. Vielleicht findest du ja noch eine andere Lösung (API? ) zur Umrechnung der Koordinaten.Code:Option ExplicitConst faktor As Single = 20Const OleFaktor As Single = 12Private Sub TreeView1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x A ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Objekte von einer Lage lesen
Stelli1 am 27.11.2012 um 19:09 Uhr (0)
Hallo,im angegebenen Link ist ein Kurzbeispiel mit einer kleinen Falle drin.Macht man mal um kurz was zu probieren.Ich habe dir das mal (ohne zu Testen) zusammenkopiert und auskommentiert.So sollte es gehen Code: Deine Funktion zur SelektionPublic Sub mySelect() Selectionset (hierin sollen deine ausgewählten Objeklte aufgelistet werden) Dim tSSet As AcadSelectionSet Arrays für Filterangeben anlegen Dim FType(0) as Integer Dim FData(0) as Variant Fehlerverfolgung an da man ein Selektionset nur einmal ha ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
Stelli1 am 20.02.2008 um 17:29 Uhr (0)
Hallo Ines,ich glaube in deinem Code ist etwas vermischt.In VB/VBA hast du die Möglichkeit auf die ActiveX Schnittstelle anderer Anwendungen zuzugreifen. Die Schnittstelle stellt Eigenschaften, Methoden, Funktionen und Events zu Verfügung.In VB erzeugst du mit Code:Set acApp = CreateObject("Autocad.Application")eine neue Instanz der Aktuellen AutoCAD Version. Hast du mehrere Versionen auf einem Rechner kann der "Klassenname" eventuell den Zusatz der Version besitzen (z.B. Autocad.Application.16 bei AutoCAD ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
