CS
VB, VB.NET
ASP.NET,ASP
C, C++
ColdFusion
PHP
Javascript
Delphi
Flash
Java
Graphisme
Irc
Assembleur
C#
Mobilité
SQL
Foxpro
Python
Windev
Snippets
IT Pros
Codes
(38356)
Listes de codes
Toutes
les sources
Les plus
récents
Les
mis à jour
Les plus
populaires
Les plus
populaires du mois
Tout le
niveau 1
(débutant)
Tout le
niveau 2
(initié)
Tout le
niveau 3
(expert)
Toutes les sources avec un
fichierZIP
Les sources
(1147)
Les
mieux notés
Trouver des codes
Trouver un code par mot clé
(Nouveau)
Top des codes
Les Trophées
Top des favoris des membres
Top par catégorie
Auteurs de codes
Les auteurs de sources
Le top des membres
Ajouter une source
Tutoriaux
(38356)
Forums
(1146790)
Vidéos
Livres
(28485)
Outils & Liens
Emploi (CV et Offres)
Services
Téléchargement
Chat
Autres Sites
Divers
Partenaires
Section étudiants
Section pro
Connexion
begin process at 2008 07 19 19:47:04
Derniers blogs
T_PAAMAYIM_NEKUDOTAYIM
Et je mets le son....
SharePoint : Comment i...
VPC - Reset de la posi...
Un bug dans IE rendra ...
La suite...
Mini Sondage
Votre navigateur n'utilise pas le javascript, pour
voter aux sondages de ce site, cliquez ici
Derniers logiciels
Mozilla Firefox (3.0.1...
NSIS (2.38)
VSCmdShell (1.2)
MzTools (3.0.1175)
EasyPHP (1.8 / 2.0 bet...
La suite...
Comparer les prix
Electrolux ARC24003 au meilleur prix
Mes RSS
Les sites google, mot...
Canon selphy cp760 : ...
Ingres explore le fut...
Sharepoint : comment ...
Nouvelle console rive...
La suite...
Personnaliser
Stats
1 212 979
membres
299
nouveaux aujourd'hui
14 165
membres club
Divers
Mettre ce site au démarrage
Ajouter ce site à vos favoris
CodeS-SourceS dans votre MSN !
Mes Favoris
Plein Ecran
Connexion
Trouver une ressource
(Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Trouvez une ressource parmi
38 356
codes,
1 146 790
messages d'aide etc...
Recherche:
dans
Tout le site
Codes
Tutoriaux
Forum
Blogs
Livres
RFC
Icones
News .NET
Boutique
[ Dernières recherches ]
Filtre:
Tous les langages
Python
Foxpro
SQL
PDA / PocketPC
C# / C#.NET
Assembleur
IRC
Graphisme
JAVA / J2EE
Flash
Delphi
Javascript / Ajax / DHTML
PHP
ColdFusion
C / C++ / C++.NET
ASP / ASP.NET
Visual Basic, VB6, VB.NET, VB 2005, VB
Tous les codes
.NET uniquement
Exclure .NET
Vous ne trouvez pas de réponse à votre problème ? Alors
posez la question dans le forum
.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
127 commentaire(s) de FENETRES
sur des sources sur tout
CodeS-SourceS
Le :
03/04/2008 16:31:38
Source :
VBA EXCEL : FONCTION ROUND POUR COMPATIBILITÉ EXCEL 97
Règle de l'arrondi bancaire:
La fonction Round de VB6 utilise l'arrondi bancaire pour déterminer comment arrondir la valeur qui se trouve exactement au milieu des deux valeurs ayant le nombre de chiffres significatifs souhaité. La convention est d'aller au nombre pair le plus proche ainsi 1, 5 et 2,5 sont arrondis à 2 alors que 3,5 et 4,5 sont arrondis à 4.
Le :
06/03/2008 12:08:56
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
Procédure revue et corrigée (toute exception sera silencieuse).
procedure TfrmDemo.frmDemoOnActivate(Sender: TObject);
procedure setCursor(hWnd:integer; lpCursorName:PAnsiChar);
var
hCur:integer;
begin
hCur:=LoadCursor(0, lpCursorName);
if (hcur<>0) then begin
SetClassLong(hWnd, GCL_HCURSOR, hCur);
DestroyCursor(hCur);
end;
end;
begin
//Déclare et affiche le caractère de délimitation
Delimiter:=';';
lblDelimiter.Caption:= 'Delimiter: "' + Delimiter + '"';
//Curseur des boutons
setCursor(btnSplit.Handle, IDC_HAND);
setCursor(btnClose.Handle, IDC_HAND);
end;
Le :
06/03/2008 11:51:09
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
Note : les déclarations des l'API utilisées se trouve dans l'unité Windows.
Le :
06/03/2008 10:21:05
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
Pour information des lecteurs, voici les spécifications complètes de l'API qui a fait l'objet de la remarque fondée de notre ami Renfield.
Declaration:
Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long
Parameters:
· hInstance
Identifies an instance of the module whose executable file contains the cursor to be loaded.
· lpCursorName
Points to a null-terminated string that contains the name of the cursor resource to be loaded. Alternatively, this parameter can consist of the resource identifier in the low-order word and zero in the high-order word. The MAKEINTRESOURCE macro can also be used to create this value.
To use one of the Win32 predefined cursors, the application must set the hInstance parameter to NULL and the lpCursorName parameter to one the following values:
IDC_APPSTARTING
Standard arrow and small hourglass
IDC_ARROW
Standard arrow
IDC_CROSS
Crosshair
IDC_IBEAM
Text I-beam
IDC_ICON
Obsolete for applications marked version 4.0 or later.
IDC_NO
Slashed circle
IDC_SIZE
Obsolete for applications marked version 4.0 or later. Use IDC_SIZEALL.
IDC_SIZEALL
Four-pointed arrow
IDC_SIZENESW
Double-pointed arrow pointing northeast and southwest
IDC_SIZENS
Double-pointed arrow pointing north and south
IDC_SIZENWSE
Double-pointed arrow pointing northwest and southeast
IDC_SIZEWE
Double-pointed arrow pointing west and east
IDC_UPARROW
Vertical arrow
IDC_WAIT
Hourglass
Return values :
If the function succeeds, the return value is the handle of the newly loaded cursor.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.
Le :
06/03/2008 09:56:02
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
Le "finally" est toujours exécuté même si une exception est levée. Dans ce cas, effectivement, il n'est pas vraiment nécessaire.
A+,
Le :
06/03/2008 09:42:14
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
Bonjour l'artiste,
Je ne comprends pas ta remarque car cette procédure ne génère aucune exception (Delphi7 ou 2007). D'ailleurs, il s'agit d'une transcription en Pascal d'une proc. très connue par les programmeurs VB. Il faudrait détailler le contexte et son usage.
Le :
05/03/2008 11:40:02
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
En aparté, vous pouvez notez la manière de récupérer un curseur système différent d'un curseur Delphi :
procedure TfrmDemo.frmDemoOnActivate(Sender: TObject);
procedure setCursor(hWnd:integer; lpCursorName:PAnsiChar);
var
hCur:integer;
begin
try
hCur:=LoadCursor(0, lpCursorName);
SetClassLong(hWnd, GCL_HCURSOR, hCur);
finally
DestroyCursor(hCur);
end;
end;
begin
//Déclare et affiche le caractère de délimitation
Delimiter:=';';
lblDelimiter.Caption:= 'Delimiter: "' + Delimiter + '"';
//Curseur des boutons
setCursor(btnSplit.Handle, IDC_HAND);
setCursor(btnClose.Handle, IDC_HAND);
end;
Le :
14/02/2008 17:30:41
Source :
FAIRE UN SPLIT EN DELPHI
La fonction Split de VB "renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes."
Et sans vouloir contrarier FABIIN, il n'est pas nécessaire d'instancier un TStringList pour obtenir ce résultat !
http://www.delphifr.com/codes/DELPHI-PROCEDURE-SPLIT-SIMILAIRE-FONCTION-EPONYME-VB_45704.aspx
Le :
13/02/2008 14:51:59
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
La conversion de la procédure en fonction donnerait la signature suivante :
function Split(const Delimiter: char; DelimitedText: string): TStrArray;
Il n'y a donc pas de quoi fouetter un chat pas plus que l'élargissement du caractère de délimitation à un type string. L'ajout d'autres paramètres ne présente pas à mon point de vue un trés grand intérêt. C'est pourquoi, après réflexion et correction du titre, je ne pense pas surcharger la méthode présentée.
Cordialement,
Le :
12/02/2008 11:08:55
Source :
DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB
Split(expression[, delimiter[, limit[, compare]]])
Alors, effectivement, vos souvenirs sont bons. Je n'ai pas le temps actuellement de surcharger cette méthode et d'écrire une procédure réellement semblable. Mais je vous promets de m'y atteler dès que possible.
[
Page 1
Page 2
Page 3
Page 4
Page 5
Page 6
Page 7
Page 8
Page 9
Page 10
]
>
>|
CONCOURS DE PROG !
Pendant les vacances se déroule un concours de programmation Flash sur CodeS-SourceS !
Cliquez ici pour tous les détails
Plus que
43 jours
avant la fin !
Pub
Besoin d'icones ?
Besoin d'icones de qualité professionnelle pour vos sites et applications ? Alors ne cherchez plus, IconShock est la réponse !
IconShock est recommandé par CodeS-SourceS
Appels d'offres
Dessins techniques
Budget :
60€
Animation Flash - Doma...
Budget :
370€
Application flash medi...
Budget :
1 000€
La suite
RSS
Côté IT
Nouveautés dans les in...
Installation des drive...
Supprimer un module da...
Nettoyer les fichiers ...
Intégration de Reporti...
Automatisation de back...
Installation de WSS V3...
Tous les articles IT
CalendriCode
Juillet
2008
L
M
M
J
V
S
D
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
VS Express FR Gratuit !
Boutique