---

MegaView.gif

Morgen Karsten

Habe heute Morgen Dein Beispiel angeschaut mit dem Megaviewer.
Kannst Du mir sagen wie ich den Code ändern muss damit der Hintergrund des angezeigten Fensters in schwarz kommt..????

Besten Dank und Gruss

TOM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Karsten

Das mit der Hintergrundfarbe funtz jetzt, habs gefunden. Anderes Problem die MegaCAD 2005 Dateien werden nicht angezeigt, hast Du mir da einen Tip.

Gruss und besten Dank
TOM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

du mußt die Variable lngFlags ändern, diese wird in frmMain in der Procedure Form_Load initialisiert. Erlaubte Werte für die Farben sind 0-15, dabei entspricht 0-schwarz und 15-weiß.

Code:

---

Private Sub Form_Load()
  'Namen und Pfade initialisieren
  Call SetDllPath(CurDir)
  Call SetFileName("")
  Call SetIniName(CurDir & "\MEGACAD.INI")
 
  Call Komandozeile
 
  'prtdraw.dll patchen
  If Patch(GetDllPath) = False Then
    Call MsgBox("Die prtdraw.dll konnte nicht gepatcht werden." & vbCrLf & _
                "Die Anzeige der Makrodaten kann somit nicht zur Verfügung gestellt werden.", _
                vbExclamation, "Info")
    mnuHelpMakros.Enabled = False
  End If
 
  'MegaCAD SetMegaIni Funktion aus drawprt.dll aufrufen
  Call SetIni(GetIniName)
 
  'Variablen und Funktionen initialisieren
  'Rückgabewert von Scale... festlegen
  'ScaleMode-Wert für tRECT Bereiche von prtdraw.dll, Pixel erforderlich
  frmMain.ScaleMode = 3  '1-Twip, 2-Punkt, 3-Pixel, 4-Zeichen
  Call SetScrollBarPos
  Call SetScrollBarMinMax
  Call InitZoom(100, 10, 0)
  Call InitStatusBar
  bolFreeZoom = False
  lngFlags = 0          'Hintergrundfarbe 0-15) 15-weiß, 7-grau, 0-schwarz
  lngRand = 10
End Sub

---

------------------
90% aller Fehler haben ihre Ursache 60cm vor dem Bildschirm.

CU
Karsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

prtdraw4VB2005.zip

Moin,

da war doch glatt einer schneller.
Um auch die aktuellen 2005er Zeichnungen betrachten zukönnen ist die aktuelle prtdraw.dll erforderlich. Natürlich wird auch diese in der orginal Version einen Absturz beim aufruf von MakroLoop in VB erzeugen. Deshalb wird die orginal prtdraw.dll mit hilfe des PrtDrawVBPatch-Moduls verändert damit es mit VB funktioniert. Dies sollte auch mit der aktuellen dll möglich sein. Dazu mußt du die 2004er prtdraw.dll in deinem VB-Projektverzeichnis gegen die neue 2005er dll, welche im "C:\Programme\MegaCAD_3D_2005\UTILS" Verzeichnis austauschen. Zusätzlich mußt du die alte gepatchte prtdraw4VB.dll im Projektverzeichnis löschen, diese wird beim ersten Programmstart neu erstellt. So sollt es auch mit Zukünftigen Versionen funktionieren.
Oder einfach die dll aus der zip-Datei ins Projektverzeichnis kopieren.

------------------
90% aller Fehler haben ihre Ursache 60cm vor dem Bildschirm.

CU
Karsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Karsten

Besten Dank für Deine Hilfe und vorallem Deinen Grundcode um ein PRT anzuzeigen im VB.
Wenn ich wieder Hilfe brauche würde ich mich gerne wieder an Dich wenden.

Gruss und schöner Tag aus dem Zürcher-Oberland
TOM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

darfst du.
Allerdings kann ich dir nicht garantieren ob es so schnell geht. Nebenbei muß ich auch manchmal noch was für meinen Chef machen. 

------------------
90% aller Fehler haben ihre Ursache 60cm vor dem Bildschirm.

CU
Karsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP