Converssion de code VB6 en VB.netRésolu

Question

Bonjour je suis en train de convertir un programme qui est &#224; la base en VB6, je le converti en VB.net.

Cependant je ne suis pas excellent en VB6 et j'ai deux ligne que je ne suis pas capable de convertir , voici les lignes :



Dim PIds() 
As 
Long, PIdsCount 
As 
Long
(...)
ReDim PIds(1& 
To 1&)    <===== Convertir cette ligne
(...)

Mon 2e probleme est dans ce code :
' WindowClassname function returns window's class name.
Private 
Function WindowClassname(
ByVal hwnd 
As EnumWindowsDelegate) 
As 
String
   WindowClassname = String$(255&, 0)    <===== LA FONCTION String$ a convertir
   WindowClassname = Left(WindowClassname, GetClassName(hwnd, WindowClassname, 255&))

End 
Function

Pour ce qui est du string$, J'ai trouv&#233; StrDup qui a l'air de ressembler, mais sa marche pas a cause du 255&...

Donc si vous pouvez m'aider sa serait appr&#233;cier :)

cs_casy · Accepted Answer

Premi&#232;re chose, oublie le signe & coll&#233; au nombres, c'&#233;tait pour indiqu&#233; le type du nombre. Je crois que ce n'est plus utilis&#233;, de toute fa&#231;on &#231;a n'a jamais &#233;t&#233; tr&#232;s utile car pas du tout clair quand tu relis un code.

Pour la string, tu peux effectivement utilis&#233; StrDup comme ceci donc : StrDup(255,0)

Pour Redim par contre, il faut savoir qu'en .Net les tableaux commencent toujours &#224; 0 contrairement &#224; VB6 ou on pouvais les faire commenc&#233; ou on voulais.
Donc ReDim(1 to 1) en VB6 te d&#233;clarait un tableau avec une cellule ayant pour index 1

En .Net soit tu fait Redim(1), alors tu auras un tableau de 2 cellules (index 0 et 1) et tu continu &#224; utiliser ta cellule index 1 comme vant dans le code, soit il te faut obligatoirement un tableau de taille 1, dans ce cas tu met ReDim(0) et tu modifi ton code pour utiliser la cellule d'index 0.

Voila en esp&#233;rant t'avoir aid&#233;

<hr size="2" width="100%">

cs_Jack · Answer

Salut
Bizarre
C'est surement le & apr&#232;s le chiffre sur lequel il bloque : Enl&#232;ve-le, il ne sert &#224; rien dans ton cas.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

forum_ma · Answer

Merci a vous deux!!!

Rester pas loin jva surement avoir d'autre questin plus tard durant la conversion :)

forum_ma · Answer

Bon j'ai une autre question... Le type Any n'existe plus, c'est quoi qui le remplace??


Voici ou il est utilise :


Declare 
Function RegSetValueEx 
Lib "advapi32.dll" 
Alias "RegSetValueExA" (
ByVal hKey 
As 
Long, 
ByVal lpValueName 
As 
String, 
ByVal Reserved 
As 
Long, 
ByVal dwType 
As 
Long, 
ByVal lpData 
As
 Any, 
ByVal cbData 
As 
Long) 
As 
Long

Je ne sais pas par koi le changer et je ne trouve pas de doc sur cette API...

forum_ma · Answer

J'ai p-e trouv&#233; quelque chose mais je ne sais pas trop comment l'utiliser :


VB4-32,5,6
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.


VB.NET
Microsoft.Win32.RegistryKey.SetValue

Ce qui voudrait dire que j'ai juste a changer la function par Microsoft.Win32.RegistryKey.SetValue ????

cs_casy · Answer

Justement j'&#233;tais en train de regarder un exemple, je te le donne ci-dessous :

Imports System
Imports Microsoft.Win32
Public Module modmain
   Sub Main()
     'The KPD-Team 2001
     'URL: http://www.allapi.net/dotnet/
     'E-Mail: KPDTeam@Allapi.net
      'Create a new registry key
      '   HKEY_CURRENT_USER\Software\AllAPI.net
      Dim RegKey as RegistryKey = Registry.CurrentUser.CreateSubKey( _
         "Software\AllAPI.net")
      'Set the value of 'URL' to 'http://www.allapi.net/'
      RegKey.SetValue("URL", "http://www.allapi.net/")
      'Delete 'URL'
      RegKey.DeleteValue("URL")
      'Delete the subkey AllAPI.net
      Registry.CurrentUser.DeleteSubKey("Software\AllAPI.net")
      'Close the registry key
      RegKey.Close()
   End Sub
End Module

<hr size="2" width="100%">

Converssion de code VB6 en VB.net

6 réponses

Discussions similaires