Hallo,
wenn ich eine mir mit einem posting übermittelte Datei mit Namen Lauftext.exe mit dem cmdbutton ANLAGEN ÖFFNEN zu öffnen versuche, erscheint die Meldung:
Die erforderliche DDL-Datei MSVBVM60.DDL wurde nicht gefunden.
Was ist zu tun?
Dank und Grüße
Wilhelm
Bitte den Absender, dir auch diese datei zu mailen und kopiere beide in einem Verzeichnis. Dann solltest Du die *.exe starten können. Die *.DLL ist eine Biblioteksdatei, auf die das Programm zugreifen will.
Micha
Hallo Michael,
Danke für die prompte Reaktion. In der mail selbst hing folgendes:
[SCC]
SCC=This is a source code control file
[lauftext.vbp]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.
---- File information -----------
File: lauftext.exe
Date: 2 May 2000, 19:31
Size: 20480 bytes.
Type: PCEXE
Type=Exe
Form=frmlauftext.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT2\SYSTEM32\STDOLE2.TLB#OLE Automation
IconForm=„frmlauftext“
Startup=„frmlauftext“
ExeName32=„lauftext.exe“
Command32=""
Name=„Project1“
HelpContextID=„0“
CompatibleMode=„0“
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName=„NTT“
CompilationType=0
OptimizationType=0
FavorPentiumPro™=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
frmlauftext = 53, 153, 529, 629, C, 0, 0, 640, 673, C
VERSION 5.00
Begin VB.Form frmlauftext
BorderStyle = 1 'Fixed Single
Caption = „Lauftextsample“
ClientHeight = 5595
ClientLeft = 45
ClientTop = 330
ClientWidth = 8475
BeginProperty Font
Name = „Arial“
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = „Form1“
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5595
ScaleWidth = 8475
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdend
Caption = „&End“
Height = 255
Left = 6600
TabIndex = 2
Top = 5040
Width = 1335
End
Begin VB.Timer tmrgotext
Interval = 100
Left = 4800
Top = 2640
End
Begin VB.TextBox txtdemo
BeginProperty Font
Name = „Arial“
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 0
Text = „Demo Text!“
Top = 240
Width = 8055
End
Begin VB.Label lbldemo
BorderStyle = 1 'Fixed Single
Caption = „Demo Label!“
BeginProperty Font
Name = „Arial“
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 1
Top = 1080
Width = 8055
End
End
Attribute VB_Name = „frmlauftext“
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdend_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
End Sub
Private Sub tmrgotext_Timer()
Static int_howmanyrun As Integer
lbldemo.Caption = " " & lbldemo.Caption
txtdemo.Text = " " & txtdemo.Text
'text darf nicht über rand der controls hinaus laufen…
If int_howmanyrun = 58 Then
int_howmanyrun = 0
lbldemo.Caption = „Demo Label!“
txtdemo.Text = „Demo Text!“
Else
int_howmanyrun = int_howmanyrun + 1
End If
End Sub
Hilft mir das weiter? Ich spiele ein bischen mit VBA, der code ist für mich aber nicht lesbar und deswegen komme ich nicht weiter.
Grüße
Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Wilhelm,
da muss ich denn auch passen - damithab ich mich bisher überhaupt nicht beschäftigt.
Aber vielleicht findest du ja noch andere Wissende 
Micha