| 413 |
|
Commun.swPart = Commun.swModel |
| 414 |
|
Debug.Assert(Not swPart Is Nothing, "Fonction2, le part a pas pris son pointeur") |
| 415 |
|
|
| 416 |
< |
MsgBox("Le bouton de la fonction #2 a été appuyé, mais il n'y a pas encore de code dessous" & vbCr & "Spottez ce Msgbox et placer du code en dessous pour appeler la sous-routine qui démarre votre programme.", MsgBoxStyle.Exclamation) |
| 416 |
> |
Commun.DessinerSensAretesEtNormaleFace() |
| 417 |
> |
'MsgBox("Le bouton de la fonction #2 a été appuyé, mais il n'y a pas encore de code dessous" & vbCr & "Spottez ce Msgbox et placer du code en dessous pour appeler la sous-routine qui démarre votre programme.", MsgBoxStyle.Exclamation) |
| 418 |
|
' faire quelquechose |
| 419 |
|
|
| 420 |
|
End Sub |
| 425 |
|
Debug.Assert(Not swPart Is Nothing, "Fonction3, le part a pas pris son pointeur") |
| 426 |
|
|
| 427 |
|
' faire quelquechose |
| 428 |
< |
MsgBox("Le bouton de la fonction #3 a été appuyé, mais il n'y a pas encore de code dessous" & vbCr & "Spottez ce Msgbox et placer du code en dessous pour appeler la sous-routine qui démarre votre programme.", MsgBoxStyle.Exclamation) |
| 429 |
< |
|
| 428 |
> |
Dim form As New Debug_form |
| 429 |
> |
Dim liste() As String : ReDim liste(0) |
| 430 |
> |
Dim i As Integer = 0 |
| 431 |
> |
For Each f As SlyFaceVolume In Commun.lst_FaceVolume |
| 432 |
> |
ReDim Preserve liste(i) |
| 433 |
> |
liste(i) = f.nom |
| 434 |
> |
i += 1 |
| 435 |
> |
Next |
| 436 |
> |
form.ListBox2.DataSource = liste |
| 437 |
> |
form.Show() |
| 438 |
|
End Sub |
| 439 |
|
|
| 440 |
|
Sub Fonction4() |
