File "VB5CA.tmp"

Full Path: /home/analogde/www/Dessin/VB5CA.tmp
File size: 3.22 KB
MIME-type: text/plain
Charset: 8 bit

Attribute VB_Name = "Module2"
Option Explicit

Dim sec As Long
Dim delai As Long

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1

Private Declare Function SetWindowPos Lib "USER32" _
                         (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
                          ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
                          ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function AuSommet(hwnd As Long) As Long

AuSommet = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Function

Sub Splash()

Form_principale.Timer_Splash.Enabled = True
Form_principale.Timer_Splash.Interval = 1000

delai = 2
sec = 0
'AuSommet Me.hwnd


frmSplash.Show
DoEvents
'Form_principale.Show
'frmSplash. .CloseAfter 2

End Sub

Public Sub CloseAfter(ByVal attente As Long)

Form_principale.Timer_Splash.Enabled = False
delai = attente

End Sub

Private Sub Timer_Splash()

    sec = sec + 1
    MsgBox "ff"
    If sec >= delai Then Unload frmSplash
  

End Sub

Public Function extraction_champ(chaine As String, type_objet As String)
    
    Dim i As Integer
    
    'dcoupe la chaine en fonction des espaces " "
    'le rsultat de la fonction Split est stock dans un tableau
    Tableau = Split(chaine, " ")
    
    'boucle sur le tableau pour visualiser le rsultat
    'For i = 0 To UBound(Tableau)
    'Le rsultat s'affiche dans la fentre d'execution de l'diteur de macros
    'Debug.Print Tableau(i)
    'Next i
    
    Num = CDbl(Tableau(0))
    Pos_X = CDbl(Tableau(1))
    Pos_Y = CDbl(Tableau(2))
    
    If (type_objet = "PAD") Then
        Type_Instance = Tableau(3)
        Orientation = LCase(Tableau(4))
    End If
    
End Function

Public Function titi(ByVal nombre_liens)

Form1.MSFlexGrid_Template.Cols = 27
Form1.MSFlexGrid_Template.Rows = nombre_liens


Form1.MSFlexGrid_Template.ColWidth(0) = 1500
Form1.MSFlexGrid_Template.ColWidth(1) = 1500
Form1.MSFlexGrid_Template.ColWidth(2) = 1700
Form1.MSFlexGrid_Template.ColWidth(3) = 1500



'Form1.MSFlexGrid_Template.Row = 2
'Form1.MSFlexGrid_Template.Col = 3
'Form1.MSFlexGrid_Template.Text = "rien"
'Form1.MSFlexGrid_Template.TextMatrix(0, 0) = ""
'MSFlexGrid1.Cols = 4
'MSFlexGrid1.FixedCols = 0

Form1.MSFlexGrid_Template.Col = 0
Form1.MSFlexGrid_Template.Row = 0
Form1.MSFlexGrid_Template.Text = "PAD"
'
Form1.MSFlexGrid_Template.Col = 1
Form1.MSFlexGrid_Template.Row = 0
Form1.MSFlexGrid_Template.Text = "X"
'
Form1.MSFlexGrid_Template.Col = 2
Form1.MSFlexGrid_Template.Row = 0
Form1.MSFlexGrid_Template.Text = "Y"
'
'Form1.MSFlexGrid_Template.Col = 3
'Form1.MSFlexGrid_Template.Row = 0
'Form1.MSFlexGrid_Template.Text = "Animateur"

'Les proprits Cols et Rows permettent de dfinir le nombre de colonne et de ligne

'Form1.MSFlexGrid_Template.ColWidth = 150


'Form1.MSFlexGrid_Template.Row = 2        'Coordonnes de la cellule
'Form1.MSFlexGrid_Template.Col = 3
'Form1.MSFlexGrid_Template.CellFontBold = True    'Texte en gras
'Grid.CellForeColor = Color.Red 'Couleur du texte

'Grid.Text = Texte

'Grid.TextMatrix(2, 5) = Texte

End Function