Commentaires de Ricks27 sur vbfrance

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 05:57:03

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : DATE DE CRéATION D'UN FICHIER par Renfield

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

RE : "SI" AVEC PLUS PETIT/PLUS GRAND par weginale

+ de logiciels à télécharger

1 330 605 membres
69 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 252 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .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 !

7 commentaire(s) de Ricks27 sur des sources sur vbfrance

Le : 03/11/2003 09:59:28
Source : AUTOCENTRAGE D'UNE MDICHILD PAR RAPPORT UNE FEUILLE MDI

Pour info, car j'ai oublié de le signaler : "Menu" = le nom de la feuille Mdi.

Le : 03/11/2003 09:56:44
Source : AUTOCENTRAGE D'UNE MDICHILD PAR RAPPORT UNE FEUILLE MDI

Pour t'éviter de retapper à chaque fois ton code :
------------------------------------------------------

Ds le form_load de chaque form MdiChild : Centrage Me

Sub Centrage(Feuille As Form)
Feuille.Left = (Menu.Width / 2) - (Feuille.Width / 2)
Feuille.Top = (Menu.ScaleHeight / 2) - (Feuille.Height / 2)
End Sub

Le : 29/01/2003 11:02:31
Source : ANNONYM MAILER VERSION 3

24Karas

Pour ta gouverne, je fais de l'ASM et du C++, et ce n'est pas pour autant que je dénigre le VB en affirmant que ce n'est pas un langage de prog. Certe on ne pe pas tt faire en VB, mais il y a des choses que l'on fait + rapidement en VB qu'en C++ ou en ASM. (Et vise versa)
Il fo savoir adapter les langages de prog à ses besoins.

A++ Ricks

Le : 27/01/2003 11:51:53
Source : ANNONYM MAILER VERSION 3

Je voudrais bi1 savoir kel langage tu utilises 24Karas!!! Avant de dire qu'un langage n'en n'est pas un, renseignes toi!!! Comme VicoLaChips2, si t'as besoin d'1 coup de main ou bi1 si tu ve ke je jette un coup d'oeil sur ta V4, nésites pas. A +sieurs, on pe faire 1 truc nike.

Le : 22/01/2003 19:17:18
Source : ASTUCE : IMPOSSIBLE D'ETEINDRE UNE APPLI (PROCESSUS) SOUS ALT CTRL DEL (XP&2000).

Je ne doute pas que ce code marche sous Xp (Je ne l'ai pas tester). Par contre sous 2000 et NT, on a des erreurs de permission dû à la sécurité.

Le : 04/12/2002 09:14:26
Source : RETROUVER LE NUMERO DE LA SEMAINE D'UNE DATE DONNÉE

Y'a bcp + simple. Utilises la fonction "Format" de vb!!

Function TrouverNuméroSemaine(ByVal Dte As Date) As Integer
          TrouverNuméroSemaine = Format(Dte, "ww", vbSaturday, vbFirstFullWeek)
          If TrouverNuméroSemaine > 52 Then
                    If Format(Dte + 7, "ww", vbMonday, vbFirstFullWeek) = 2 Then
                              TrouverNuméroSemaine = 1
                    End If
          End If
End Function

Le : 08/07/2002 09:13:30
Source : RETOURNE NUMÉRO DE SEMAINE D'UNE DATE SAISIE (TRÈS SIMPLE)

Tu oublies de gérer le bug de la fonction Format. Car ds certain cas, celle-ci renvoie 53 au lieu de 52.

Function TrouverNuméroSemaine(ByVal Dte As Date) As Integer
          TrouverNuméroSemaine = Format(Dte, "ww", vbSaturday, vbFirstFullWeek)
          If TrouverNuméroSemaine > 52 Then
                    If Format(Dte + 7, "ww", vbMonday, vbFirstFullWeek) = 2 Then
                              TrouverNuméroSemaine = 1
                    End If
          End If
End Function