Erreur de compliation: nom ambigu détecté : CreateRoundRectRgn

Question

Bonjour 
je suis débutant en vb ,j 'essaye de crée un client d un chat vocal pour un serveur 
j'ai rencontré un probléme genre:  Erreur de compliation: nom ambigu détecté : CreateRoundRectRgn

Corrigé moi SVP
Merci bcp

Voilà ma source


<hr />
'VA: 4041A0
Private Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Long
'VA: 404150
Private Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, lpDrawTextParams As DRAWTEXTPARAMS) As Long
'VA: 40410C
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
'VA: 4040C8
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'VA: 404080
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
'VA: 404038
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'VA: 403FF0
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
'VA: 403FA4
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
'VA: 403F54
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long


Private Sub CMD2_() '40AACC
  'Data Table: 4045C4
loc_40AA60:   FLdPrThis
loc_40AA61:   VCallAd UniVoiceX1
loc_40AA64:   FStAdFunc var_88
loc_40AA67:   FLdPr var_88
loc_40AA6A:   LateIdLdVar
loc_40AA71:   CI4Var
loc_40AA73:   CStrI4
loc_40AA75:   FStStrNoPop var_9C
loc_40AA78:   FLdPrThis
loc_40AA79:   VCallAd Label5
loc_40AA7C:   FStAdFunc var_A0
loc_40AA7F:   FLdPr var_A0
  loc_40AA82: Me.label.Caption = %x1
loc_40AA87:   FFree1Str var_9Cloc_40AA8A:   FFreeAd var_88 "" ""
loc_40AA91:   FFree1Var var_98 = ""
loc_40AA94:   FLdPrThis
loc_40AA95:   VCallAd UniVoiceX1
loc_40AA98:   FStAdFunc var_88
loc_40AA9B:   FLdPr var_88
loc_40AA9E:   LateIdLdVar
loc_40AAA5:   CI4Var
loc_40AAA7:   CStrI4
loc_40AAA9:   FStStrNoPop var_9C
loc_40AAAC:   FLdPrThis
loc_40AAAD:   VCallAd Label6
loc_40AAB0:   FStAdFunc var_A0
loc_40AAB3:   FLdPr var_A0
  loc_40AAB6: Me.label.Caption = %x1
loc_40AABB:   FFree1Str var_9Cloc_40AABE:   FFreeAd var_88 "" ""
loc_40AAC5:   FFree1Var var_98 = ""
loc_40AAC8:   ExitProcHresult
loc_40AAC9:   PopTmpLdAd2 arg_5800
End Sub


Private Sub CMD1_() '40B0D4
  'Data Table: 4045C4
loc_40AFF0:   FLdPrThis
loc_40AFF1:   VCallAd UniVoiceX1
loc_40AFF4:   FStAdFunc var_88
loc_40AFF7:   FLdPr var_88
loc_40AFFA:   LateIdCall
loc_40B002:   FFree1Ad var_88
loc_40B005:   FLdRfVar var_8C
loc_40B008:   FLdPrThis
loc_40B009:   VCallAd Text2
loc_40B00C:   FStAdFunc var_88
loc_40B00F:   FLdPr var_88
  loc_40B012:  = Me.TextBox.Text
loc_40B017:   FLdZeroAd var_8C
loc_40B01A:   CVarStr var_A4
loc_40B01D:   PopAdLdVar
loc_40B01E:   FLdRfVar var_94
loc_40B021:   FLdPrThis
loc_40B022:   VCallAd Text3
loc_40B025:   FStAdFunc var_90
loc_40B028:   FLdPr var_90
  loc_40B02B:  = Me.TextBox.Text
loc_40B030:   ILdRf var_94
loc_40B033:   CI4Str
loc_40B034:   CVarI4
loc_40B038:   PopAdLdVar
loc_40B039:   FLdPrThis
loc_40B03A:   VCallAd UniVoiceX1
loc_40B03D:   FStAdFunc var_D8
loc_40B040:   FLdPr var_D8
loc_40B043:   LateIdCall
loc_40B04B:   FFree1Str var_94loc_40B04E:   FFreeAd var_88 "": var_90 "" = ""
loc_40B057:   FFree1Var var_A4 = ""
loc_40B05A:   FLdRfVar var_8C
loc_40B05D:   FLdPrThis
loc_40B05E:   VCallAd Text5
loc_40B061:   FStAdFunc var_88
loc_40B064:   FLdPr var_88
  loc_40B067:  = Me.TextBox.Text
loc_40B06C:   FLdZeroAd var_8C
loc_40B06F:   CVarStr var_A4
loc_40B072:   PopAdLdVar
loc_40B073:   FLdRfVar var_94
loc_40B076:   FLdPrThis
loc_40B077:   VCallAd Text4
loc_40B07A:   FStAdFunc var_90
loc_40B07D:   FLdPr var_90
  loc_40B080:  = Me.TextBox.Text
loc_40B085:   FLdZeroAd var_94
loc_40B088:   CVarStr var_E8
loc_40B08B:   PopAdLdVar
loc_40B08C:   LitStr "4"
loc_40B08F:   CI4Str
loc_40B090:   CVarI4
loc_40B094:   PopAdLdVar
loc_40B095:   LitVar_TRUE var_108
loc_40B098:   PopAdLdVar
loc_40B099:   FLdPrThis
loc_40B09A:   VCallAd UniVoiceX1
loc_40B09D:   FStAdFunc var_D8
loc_40B0A0:   FLdPr var_D8
loc_40B0A3:   LateIdCallloc_40B0AB:   FFreeAd var_88 "": var_90 "" = ""loc_40B0B4:   FFreeVar var_A4 "" ""
loc_40B0BB:   FLdPrThis
loc_40B0BC:   VCallAd UniVoiceX1
loc_40B0BF:   FStAdFunc var_88
loc_40B0C2:   FLdPr var_88
loc_40B0C5:   LateIdCall
loc_40B0CD:   FFree1Ad var_88
loc_40B0D0:   ExitProcHresult
End Sub


Private Sub CMD8_() '409DFC
  'Data Table: 4045C4
loc_409DEC:   LitI4 1
loc_409DF1:   CI2I4
loc_409DF2:   FLdPr Me
  loc_409DF5: Me.Windowstate = %x1
loc_409DFA:   ExitProcHresult
End Sub


Private Sub CMD7_() '409CCC
  'Data Table: 4045C4
loc_409CC8:   End
loc_409CCA:   ExitProcHresult
End Sub


Private Sub CMD9_() '40A7D0
  'Data Table: 4045C4
loc_40A798:   FLdRfVar var_8C
loc_40A79B:   FLdPrThis
loc_40A79C:   VCallAd Text1
loc_40A79F:   FStAdFunc var_88
loc_40A7A2:   FLdPr var_88
  loc_40A7A5:  = Me.TextBox.Text
loc_40A7AA:   ILdRf var_8C
loc_40A7AD:   CI4Str
loc_40A7AE:   CVarI4
loc_40A7B2:   PopAdLdVar
loc_40A7B3:   FLdPrThis
loc_40A7B4:   VCallAd UniVoiceX1
loc_40A7B7:   FStAdFunc var_B0
loc_40A7BA:   FLdPr var_B0
loc_40A7BD:   LateIdCall
loc_40A7C5:   FFree1Str var_8Cloc_40A7C8:   FFreeAd var_88 "" ""
loc_40A7CF:   ExitProcHresult
End Sub


Private Sub Unknown_409C98()
  'Data Table: 4045C4
loc_409C94:   ExitProcHresult
loc_409C95:   PopTmpLdAd2 arg_5800
End Sub

cs_casy · Answer

VA: 4041A0
Private Declare Function DrawState Lib "user32" Alias
"DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal
lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long,
ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long,
ByVal un As Long) As Long
'VA: 404150
Private Declare Function
DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal
lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long,
lpDrawTextParams As DRAWTEXTPARAMS) As Long
'VA: 40410C
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
'VA: 4040C8
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'VA: 404080
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
'VA: 404038
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'VA: 403FF0
Private
Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long,
ByVal Y3 As Long) As Long
'VA: 403FA4
Private Declare Function
CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long,
ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long)
As Long
'VA: 403F54
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long









---- Sevyc64  (alias Casy) ----


<hr size="2" width="100%" />


# LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Rido159 · Answer

Casy merci pour la repense
mais ça blok toujours Voilà [www.l3ez.li/Soft.rar la source] 
Merci pour votre aide

Renfield · Answer

ca bloque encore ? toujours la même erreur ? As tu bien supprimé une des deux déclarations, comme t'y invite casy ?
rar non dispo...

Rido159 · Answer

bonjour 
oui Renfield ça bloque mais autre  part je crois que c'est mieu de laissé tombé  ma source est bouré 
d'érreur

ce que je voulé fr c'est ce conecté dans un chat dpuis un exe j'ai ocx du chat "le client" je l insert dans le form 
et j'ajoute de chan de text  " login  & password" et une command "connect"

j'ai cherché une tuto, mais j'ai pas trouvé 

AIder moi svp
Merci

Erreur de compliation: nom ambigu détecté : CreateRoundRectRgn

4 réponses

Votre réponse

Discussions similaires