vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Suche Visual-Basic Code
Re: API-Funktion in Visual Basic 
Autor: Fred
Datum: 26.03.01 13:48

Hallo Webmaster!

Vielen Dank. Hätte nicht gedacht, dass die Lösung so nahe liegt.
Das Problem ist, meine Online-Hilfe hat eine Macke. Beim Aufrufen von bestimmten Themen stürzt das Teil ab. Ich traue mich deshalb nicht oft die Online Hilfe von VB in Anspruch zu nehmen. Anscheinend ist aber nur die Hilfe für VB defekt. Ich benutze Access 97 aus Office 97 professional.
In der Zwischenzeit habe ich das mit dem Kreis anhand des Beispiels in einem Bericht getestet und es funktioniert sehr gut. Ob es in einem Formular funktioniert weiß ich noch nicht. Der Kreis soll nämlich entsprechend übergebenen Parametern auf einer Karte plaziert werden. Zur Zeit geht das mit einem Viereck. Kann man in der nachfolgenden Prozedur aus dem Viereck ohne viel Aufwand einen Kreis machen? Und wenn ja, wie? Ich gebe zu, dass ich noch wenig Erfahrung mit VB habe.

Option Compare Database
Option Explicit

Const NMin = 5950000#
Const NMax = 7950000#
Const EMin = -100000#
Const EMax = 1300000#

Private Sub Form_Load()
Dim Tmp, E As Double, N As Double, EX As Double, NX As Double
Tmp = Me.OpenArgs
If Tmp <> "" Then
E = Mid(Tmp, 1, InStr(Tmp, ";") - 1)
N = Mid(Tmp, InStr(Tmp, ";") + 1)
EX = ((E - EMin) / (EMax - EMin))
NX = ((N - NMin) / (NMax - NMin))
Me!MyRect.Left = Me!LO.Left + (EX * (Me!RU.Left - Me!LO.Left))
Me!MyRect.Top = Me!LO.Top + ((1 - NX) * (Me!RU.Top - Me!LO.Top))
Me!Beschriftung.Left = Me!MyRect.Left
Me!Beschriftung.Top = Me!MyRect.Top - 300
Me!Beschriftung = "E: " & E & " N: " & N
End If
Me!LO.Visible = False
Me!RU.Visible = False
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
API-Funktion in Visual Basic140Fred25.03.01 19:01
Re: API-Funktion in Visual Basic89Webmaster26.03.01 00:22
Re: API-Funktion in Visual Basic93Fred26.03.01 13:48

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-2025 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