Utiliser VERSION 5.00

cs_Yesai Messages postés 21 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 29 avril 2004 - 22 avril 2004 à 14:58
cs_Yesai Messages postés 21 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 29 avril 2004 - 23 avril 2004 à 09:42
Quand j'ecris mon programme sur un fichier txt que je le converti en .frm le programme me dis ke l'entré depasse la fin du fichier:" dans le fichier log il me dis k'il peut pas charger le programme. J'ai besoin d'explication si kelk'un peu sauver mon stage. Voici le programme :
VERSION 5.00
Begin VB.Form Calcul
Caption = "Calcul du Coefficient"
ClientHeight = 8100
ClientLeft = 3825
ClientTop = 1785
ClientWidth = 7875
LinkTopic = "Form1"
ScaleHeight = 8100
ScaleWidth = 7875
Begin VB.CommandButton OuvreModification
Caption = "Voir les modifications"
Enabled = 0
Height = 855
Left = 5520
TabIndex = 14
Top = 4680
Width = 1815
End
Begin VB.CommandButton Quitter
Caption = "Quitter"
Height = 855
Left = 5520
TabIndex = 15
Top = 6000
Width = 1815
End
Begin VB.TextBox a
Alignment = 1 'Right Justify
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull = 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1036
SubFormatType = 1
EndProperty
Height = 375
Left = 2400
TabIndex = 8
Top = 3360
Width = 1335
End
Begin VB.TextBox Coefficient
Alignment = 2 'center
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull = 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1036
SubFormatType = 1
EndProperty
Begin Property Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'false
Strikethrough = 0 'false
EndProperty
Height = 375
Left = 2400
TabIndex = 13
Top = 7080
Width = 1335
End
Begin VB.TextBox Io
Alignment = 1 'right justify
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull = 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1036
SubFormatType = 1
EndProperty
Height = 375
Left = 2400
TabIndex = 11
Top = 5520
Width = 1335
End
Begin VB.TextBox Im
Alignment = 1 'right justify
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull = 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1036
SubFormatType = 1
EndProperty
Height = 375
Left = 2400
TabIndex = 10
Top = 4800
Width = 1335
End
Begin VB.TextBox b
Alignment = 1 'right justify
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull = 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1036
SubFormatType = 1
EndProperty
Height = 375
Left = 2400
TabIndex = 9
Top = 4080
Width = 1335
End
Begin VB.TextBox Po
Alignment = 1 'right justify
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull = 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1036
SubFormatType = 1
EndProperty
Height = 375
Left = 2400
TabIndex = 7
Top = 2640
Width = 1335
End
begin VB.CommandButton Calcul
Caption = "Calcul"
Height = 615
Left = 2400
TabIndex = 12
Top = 6240
Width = 1335
Begin VB.Shape Shapel
Height = 615
Left = 1320
Top = 1080
Width = 4575
End
Begin VB.Label Label9
Caption = "Po (a + b (Im / Io))"
beginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'false
Strikethrough = 0 'false
EndProperty
Height = 375
Left = 3240
TabIndex = 17
Top = 1200
Width = 2295
End
Begin VB.Label Label8
Caption = "Coefficient="
beginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'false
Strikethrough = 0 'false
EndProperty
Height = 255
Left = 1680
TabIndex = 16
Top = 1200
Width = 1335
End
Begin VB.Label Label5
Alignment = 1 'Rightjustify
Caption = "Coefficient="
beginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'false
Strikethrough = 0 'false
EndProperty
Height = 255
Left = 720
TabIndex = 6
Top = 7200
Width = 1335
End
begin VB.label Label7
Alignment = 1 Caption "Im"
Height = 255
Left = 840
TabIndex = 5
Top = 4920
Width = 1095
End
Begin VB.Label Label6
Alignment = 1 Caption "Io"
Height = 255
Left = 840
TabIndex = 4
Top = 5640
Width = 1095
End
Begin VB.Label Label4
Alignment = 1 Caption "b"
Height = 255
Left = 840
TabIndex = 3
Top = 4200
Width = 1095
End
Begin VB.Label Label3
Alignment = 1 Caption "a"
Height = 255
Left = 840
TabIndex = 2
Top = 3480
Width = 1095
End
Begin VB.Label Label2
Alignment = 1 Caption "Po"
Height = 255
Left = 840
TabIndex = 3
Top = 2760
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'center
AutoSize = -1 'true
Caption = "Calcul du coefficient"
BeginProperty Font
Name = "MS Sans Serif "
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'false
Italic = 0
Strikethrough = 0
EndProperty
Height = 360
Left = 2130
TabIndex = 0
Top = 240
Width = 2925
End
End

2 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
22 avril 2004 à 15:39
Je vois bien que tu galères avec ce fichier .frm depuis quelques jours, mais tu pourrrais t'en servir pour recréer TOI-MËME le formulaire à partir de Visual Basic 6.

Le code ci dessous ne décrit que l'interface de ton application. C'est pas bien compliqué de prendre un formulaire vierge, de lui donner les propriétés :
Name = Calcul
ScaleHeight = 8100
ScaleWidth = 7875
...

d'y placer un bouton nommé OuvreModification à la position:

Left = 5520
Top = 4680

de la taille :

Height = 855
Width = 1815

et avec le Caption = "Voir les modifications"

et ainsi de suite avec tous les contrôles décris dans ce frm.

T'as juste 9 labels, 5 TextBox et deux boutons à placer sur ton formulaire. Tous les autres paramètres ne sont là que pour l'affichage et le positionnement sur la feuille.

Manu
0
cs_Yesai Messages postés 21 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 29 avril 2004
23 avril 2004 à 09:42
Merci j'ai bien compris mais il me reste un plus gros probleme,je dois faire la meme chose avec un objet MSRDC avec cette source:
VERSION 5.00
begin MSRDC.MSRDC MSRDC1
Height = 855
Left = 5520
TabIndex = 14
Top = 4680
Width = 1815
Caption="MSRDC1"
DataSourceName= "SourceMalik"
_ExtentX= 1123
_ExtentY= 112
.
.
.
end

Et je suis incapable de comprendre ce que ca fait , et quand je passe par un .txt pour le reconvertir ensuite en .frm; VB me dis que ce controle activX n'est pas referencé.
0
Rejoignez-nous