A PHP Error was encountered
Severity: 8192
Message: Function create_function() is deprecated
Filename: geshi/geshi.php
Line Number: 4698
Backtrace:
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 624
Function: getPaste
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once
A PHP Error was encountered
Severity: Warning
Message: Cannot modify header information - headers already sent by (output started at /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/system/core/Exceptions.php:271)
Filename: view/download.php
Line Number: 2
Backtrace:
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/themes/geocities/views/view/download.php
Line: 2
Function: header
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 173
Function: include
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 43
Function: _ci_load
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 625
Function: view
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once
A PHP Error was encountered
Severity: Warning
Message: Cannot modify header information - headers already sent by (output started at /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/system/core/Exceptions.php:271)
Filename: view/download.php
Line Number: 3
Backtrace:
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/themes/geocities/views/view/download.php
Line: 3
Function: header
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 173
Function: include
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/core/MY_Loader.php
Line: 43
Function: _ci_load
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 625
Function: view
File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once
Imports System.Windows.Forms
Imports System.Drawing
'Module ModUtilitaires
'Ce module contient des operations générales
'------------------------------------------------------
Public Module ModUtilitaires
Public Sub SetModified(ByRef ioFrmnName As Form, ByVal iValue As Boolean)
'Cette fonction permet d'initiliaser la valeur indiquant si
'un text box a été modifié ou nom
' -- iValue Vrai ou Faux
'-----------------------------------------------------------
'Parcourir la liste des controls
For Each ctrl In ioFrmnName.Controls
CheckValueModified(ioFrmnName, iValue)
Next
End Sub
Private Sub CheckValueModified(ByRef ctrlParent As Control, ByVal iValue As Boolean)
'Si le control contient d'autres controls
If ctrlParent.Controls.Count > 0 Then
'Appel récursif sur chaque control
For Each ctrlChild In ctrlParent.Controls
CheckValueModified(ctrlChild, iValue)
Next
End If
'Si le control est un text box alors initialiser la valeur
If TypeOf ctrlParent Is TextBox Then
CType(ctrlParent, TextBox).Modified = iValue
End If
'Si le control est un text box alors initialiser la valeur
If TypeOf ctrlParent Is RichTextBox Then
CType(ctrlParent, RichTextBox).Modified = iValue
End If
End Sub
'''
''' Cette fonction permet de vider les zones de saisie de texte d'une form
'''
''' form contenant les contrôles
'''
Public Sub ClearFields(ByRef ioFrmName As Form)
'Parcourir la liste des controls
For Each ctrl In ioFrmName.Controls
ClearTextBox(ctrl)
Next
End Sub
Private Sub ClearTextBox(ByVal ctrlParent As Control)
'Si le control contient d'autres controls
If ctrlParent.Controls.Count > 0 Then
'Appel récursif sur chaque control
For Each ctrlChild In ctrlParent.Controls
ClearTextBox(ctrlChild)
Next
End If
'Si le control est un text box alors le vider
If TypeOf ctrlParent Is TextBox Or _
TypeOf ctrlParent Is RichTextBox Then
ctrlParent.Text = ""
End If
End Sub
'''
''' Cette fonction permet d'associer des évènements sur les text box
''' de la form quand ceux ci ont ou non le focus
'''
''' la form
'''
Public Sub BackgroundSelection(ByRef ioFrmName As Form)
'Parcourir la liste des controls
For Each ctrl In ioFrmName.Controls
AssignEvent(ctrl)
Next
End Sub
'''
''' Fonction permettant d'assigner les évènements GotFocus et LostFocus aux text box
''' d'une forme.
''' La couleur de fond devient jaune sur le focus et blanche sans le focus
'''
''' Control à vérifier pour l'assignation des évènements
'''
''' C'est une fonction récursive car le ctrlParent peut lui aussi contenir d'autres controls
''' Comme dans le cas d'un panneau qui contient plusieurs controls
'''
Private Sub AssignEvent(ByRef ctrlParent As Control)
'Si le control contient d'autres controls
If ctrlParent.Controls.Count > 0 Then
'Appel récursif sur chaque control
For Each ctrlChild In ctrlParent.Controls
AssignEvent(ctrlChild)
Next
End If
'Si le control est un text box alors assigner les événements GotFocus et LostFocus
If TypeOf ctrlParent Is TextBox Then
AddHandler CType(ctrlParent, TextBox).GotFocus, AddressOf GotFocus
AddHandler CType(ctrlParent, TextBox).LostFocus, AddressOf LostFocus
End If
End Sub
'''
''' Évenement associé à un text box lorsque celui ci a le focus
''' La couleur de fond devient jaune
'''
'''
'''
'''
Private Sub GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
If CType(sender, TextBox).ReadOnly = False Then
sender.BackColor = Color.Yellow
CType(sender, TextBox).SelectAll()
End If
End Sub
'''
''' Évenement associé à un text box lorsque celui ci n'a pas le focus
''' La couleur de fond devient blanche
'''
'''
'''
'''
Private Sub LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
sender.BackColor = Color.White
End Sub
'''
''' Cette fonction permet de rendre éditable un control
'''
''' form contenant les contrôles
''' liste des noms de contrôles à ne pas tenir compte
''' valeur indiquant l'état du contrôle
'''
Public Sub EnableControls(ByRef ioFrmName As Form, _
ByVal iException As ArrayList, _
ByVal iEnabled As Boolean)
'Parcourir la liste des controls
For Each ctrl In ioFrmName.Controls
'obtenir le nom du contrôle
Dim sCtrlName As String
sCtrlName = ctrl.Name
Enabled(ctrl, iException, iEnabled)
Next
End Sub
Private Sub Enabled(ByRef ctrlParent As Control, _
ByVal iException As ArrayList, _
ByVal iEnabled As Boolean)
If iException.Contains(ctrlParent.Name) Then
Return
End If
'Si le control contient d'autres controls
If ctrlParent.Controls.Count > 0 Then
'Appel récursif sur chaque control
For Each ctrlChild In ctrlParent.Controls
Enabled(ctrlChild, iException, iEnabled)
Next
End If
'Rendre éditable ou non un contrôle
If TypeOf ctrlParent Is TextBox Then
CType(ctrlParent, TextBox).ReadOnly = Not iEnabled
End If
If TypeOf ctrlParent Is RichTextBox Then
CType(ctrlParent, RichTextBox).ReadOnly = Not iEnabled
End If
If TypeOf ctrlParent Is ComboBox Then
ctrlParent.Enabled = iEnabled
End If
If TypeOf ctrlParent Is UIComboBox Then
CType(ctrlParent, UIComboBox).ReadOnly = Not iEnabled
End If
If TypeOf ctrlParent Is CalendarCombo Then
CType(ctrlParent, CalendarCombo).ReadOnly = Not iEnabled
End If
End Sub
'''
''' Fonction permettant de vérifier si une valeur est nulle
'''
'''
'''
'''
'''
Public Function CheckDBNull(ByVal obj As Object, _
Optional ByVal ObjectType As enumObjectType = enumObjectType.StrType) _
As Object
Dim objReturn As Object
objReturn = obj
If IsDBNull(obj) Then
Select Case ObjectType
Case enumObjectType.StrType
objReturn = ""
Case enumObjectType.IntType
objReturn = 0
Case enumObjectType.DblType
objReturn = 0.0
Case enumObjectType.DateType
objReturn = Nothing
End Select
End If
Return objReturn
End Function
Public Function AfficherMessage(ByVal iTypeMessage As MessageType, _
Optional ByVal iMessage As String = "") As Boolean
Select Case iTypeMessage
Case MessageType.Sauvegarde
Return MessageBox.Show("Vous avez effectué des modifications. Voulez-vous les enregistrer avant de continuer ?", _
"Sauvegarde des données", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = kOui
Case MessageType.Suppression
Return MessageBox.Show(kSuppression.Replace("{replace}", iMessage), _
"Confirmation de suppression", _
MessageBoxButtons.YesNo) = kOui
Case MessageType.PerteModifications
Return MessageBox.Show("Vous allez perdre vos modifications. Voulez vous continuer ? ", _
"Sauvegarde des données", _
MessageBoxButtons.YesNo) = kOui
Case MessageType.Inexistant
Return True
Case MessageType.EcritureConcurrente
MessageBox.Show("L'enregistrement a été modifié par un autre utilisateur. Vos modifications seront perdues.", _
"Sauvegarde des données", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return True
End Select
End Function
Public Sub TotalSelection(ByRef ioFrmName As Form)
'Cette fonction permet de sélectionner tout le texte sur l'évènement de la souri
'Paramètres :
' -- ioFrmnName la forme
'-----------------------------------------------------------
'Parcourir la liste des controls
For Each ctrl In ioFrmName.Controls
'Si le control est un text box alors le vider
If TypeOf ctrl Is TextBox Then
AddHandler CType(ctrl, TextBox).MouseDown, AddressOf GotFocus
End If
Next
End Sub
Public Function GetDate(ByVal iDate As Date, _
Optional ByVal iFormat As Microsoft.VisualBasic.DateFormat = Microsoft.VisualBasic.DateFormat.ShortDate) As Object
Dim dateValue As New Object
If iDate = Nothing Then
Return ""
End If
Select Case iFormat
Case Microsoft.VisualBasic.DateFormat.GeneralDate
dateValue = iDate.ToString
Case Microsoft.VisualBasic.DateFormat.ShortDate
dateValue = iDate.ToShortDateString
Case Microsoft.VisualBasic.DateFormat.ShortTime
dateValue = iDate.ToShortTimeString
Case Microsoft.VisualBasic.DateFormat.LongDate
dateValue = iDate.ToLongDateString
Case Microsoft.VisualBasic.DateFormat.LongTime
dateValue = iDate.ToLongTimeString
End Select
Return dateValue
End Function
Public Function GetBooleanFromValue(ByVal iValue As Integer) As Boolean
If iValue = 1 Then
Return True
End If
Return False
End Function
Public Function GetValueFromBoolean(ByVal iValue As Boolean) As Integer
If iValue Then
Return 1
End If
Return 0
End Function
Public Function SetDate(ByVal iDate As Object) As Object
Dim value As Object
value = IIf(iDate = Nothing OrElse iDate.ToString = "", Nothing, iDate)
Return value
End Function
Public Function WriteNullValue(ByVal iDate As Object) As Object
Dim value As Object
value = IIf(iDate = Nothing OrElse iDate.ToString = "", DBNull.Value, iDate)
Return value
End Function
End Module