Discussion :

[AL1986]

Salut à tous,
Je travaille sur un projet de migration d'une application VB vers Delphi. Des variables propres à VB n'ont pas été remplacées par leur équivalents. Voici une liste contenant quelques unes:

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
vbhidden
vbreadonly
vbnormalfocus
vbTwips
vbcharacters
vbPRORLandscape
vbPRORPortrait
vbnormal
vbnullchar
vbObjectError
vbdirectory
vb3Dhighlight
vb3dshadow
vb3DDKShadow
vbhide
vbmsgboxresult
vbcftext
vbfixeddouble
vbMonday, vbFriday, ….., vbfirstJan1
vbminimized

Existe t-il des équivalents en Delphi ?. Merci pour votre aide.

[sjrd]

Il serait mieux que tu nous indique ce que représentent ces variables. Sans ça, seul quelqu'un qui connaît VB et Delphi sera en mesure de t'aider

Je devine cependant les suivantes :

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
vbhidden = faHidden
vbreadonly = faReadOnly
vbdirectory = faDirectory

vbcharacters : les VK_*
vbnullchar = #0

vbPRORLandscape et vbPRORPortrait : voir TPrinter et fouiller
vbmsgboxresult : les valeurs que renvoie MessageDlg (mr*)
vbminimized = wsMinimized

[AL1986]

Le fait est que je ne connais pas VB, et ce n'est pas moi qui ai écrit le code de l'application. Je vous indique ce que me dit l'aide de VB sur les différentes constantes, en espérant que cela soit un peu plus clair. Je vous remercie énormément.

Const vbHidden = 2
Member of VBA.VbFileAttribute
Attributes argument constant for Dir, GetAttr, or SetAttr

Const vbReadOnly = 1
Member of VBA.VbFileAttribute
Attributes argument constant for GetAttr or SetAttr

Const vbNormal = 0
Member of VBA.VbFileAttribute
Attributes argument constant for Dir, GetAttr, or SetAttr

Const vbDirectory = 16 (&H10)
Member of VBA.VbFileAttribute
Attributes argument constant for Dir or GetAttr

Const vbNormalFocus = 1
Member of VBA.VbAppWinStyle
Argument constant for Shell

Const vbHide = 0
Member of VBA.VbAppWinStyle
Argument constant for Shell

Const vbTwips = 1
Member of VBRUN.ScaleModeConstants
Twip (ScaleMode).

Const vbCharacters = 4
Member of VBRUN.ScaleModeConstants
Character (ScaleMode).

Const vbPRORLandscape = 2
Member of VBRUN.PrinterObjectConstants
Documents print with the top at the wide side of the paper.

Const vbPRORPortrait = 1
Member of VBRUN.PrinterObjectConstants
Documents print with the top at the narrow side of the paper.

Const vbNullChar = ""
Member of VBA.Constants
Basic constant for a single Null character (ASCII value 0); equivalent to Chr$(0)

Const vbObjectError = -2147221504 (&H80040000)
Member of VBA.Constants
Constant indicating error is being returned from a Visual Basic object

Const vb3DHighlight = -2147483628 (&H80000014)
Member of VBRUN.SystemColorConstants
Highlight color for 3D display elements.

Const vb3DShadow = -2147483632 (&H80000010)
Member of VBRUN.SystemColorConstants
Color of automatic window shadows.

Const vb3DDKShadow = -2147483627 (&H80000015)
Member of VBRUN.SystemColorConstants
Darkest shadow.

Const vbCFText = 1
Member of VBRUN.ClipBoardConstants
Text (.TXT file).

Const vbMonday = 2
Member of VBA.VbDayOfWeek
FirstDayOfWeek constant

Const vbFirstJan1 = 1
Member of VBA.VbFirstWeekOfYear
FirstWeekOfYear constant

Const vbMinimized = 1
Member of VBRUN.FormWindowStateConstants
Minimized window state.

[AL1986]

Je relance mon post. J'ai déjà eu quelques équivalents par l'intermédiaire de sjrd que je remercie énormément, si quelqu'un connaît les équivalents des constantes restantes, merci de m'en aviser.

[Laurent Dardenne]

Salut,
consulte ce tuto : http://dn.codegear.com/article/image...vbtodelphi.pdf

sinon demande dans le forum VB s'il n'existe pas un document recensant ces constantes.

[Qwazerty]

SAlut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Const vbMonday = 2
Member of VBA.VbDayOfWeek
FirstDayOfWeek constant

ca doit etre DayMonday

a++
Qwaz

[AL1986]

Merci pour les réponses, je vais poster un sujet sur le forum VB mais je laisse ce post accessible au cas où il y aurait d'autres interventions.