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 !

361 commentaire(s) de gillardg sur des sources sur tout CodeS-SourceS

Le : 05/07/2009 12:12:08
Source : EDITEUR DE TEXTE WINFORM AVEC CORRECTEUR ORTHOGRAPHIQUE WPF
de nada


Le : 26/06/2009 13:11:46
Source : AFFICHE SOBREMENT LES TWEET (SELON RECHERCHE)
joli :)
étant nul en html javascript & co je te note 8 :)


Le : 22/06/2009 17:42:29
Source : LABEL ET IMAGE DANS TEXTBOX
si tu as 25 textbox ??


Le : 08/06/2009 00:52:04
Source : INSTALL DLL OCX ( ACTIVEX )
salut,
je ne vois pas bien quel est le problème ??
tu n'as pas vb.net ??


Le : 07/06/2009 13:12:00
Source : LES EXECWB DU WEBBROWSER INTÉGRÉ ....
bonjour
c'est en % de la taille et pas de 1 a 4
je suis descendu à 10% pour faire un aperçu de page

Menu Affichage Taille du texte (TailleTexte = pourcentage de la taille désirée )
- WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(TailleTexte)


Le : 05/06/2009 17:06:45
Source : AGITATOR - MACRO UNIVERSELLE
salut, c'est chouette comme prog, j'en avais justement besoin d'un comme ça pour terminer mon MultiFriendAdder lol
juste une chose , tu as oublié de signaler que c'est en .Net :)
voici une autre source du même genre mais en c#  http://www.codeproject.com/KB/system/globalmousekeyboardlib.aspx


Le : 13/04/2009 12:57:14
Source : TRADUCTEUR GOOGLE : INTERFACE WINFORM POUR LE SERVICE DE TRADUCTION DE GOOGLE
essaye ceci :)

    Private Function Translate(ByVal stringToTranslate As String, ByVal fromLanguage As String, ByVal toLanguage As String) As String
        ' make sure that the passed string is not empty or null
        If (Not String.IsNullOrEmpty(stringToTranslate)) Then
            ' per google's terms of use, we can only translate
            ' a string of up to 5000 characters long
            If stringToTranslate.Length <= 5000 Then
                Const bufSizeMax As Integer = 65536
                Const bufSizeMin As Integer = 8192

                Try
                    ' by default format? is text.  so we don't need to send a format? key
                    Dim requestUri As String = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" & stringToTranslate & "&langpair=" & fromLanguage & "%7C" & toLanguage

                    ' execute the request and get the response stream
                    Dim request As HttpWebRequest = CType(WebRequest.Create(requestUri), HttpWebRequest)
                    Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
                    Dim responseStream As Stream = response.GetResponseStream()

                    ' get the length of the content returned by the request
                    Dim length As Integer = CInt(Fix(response.ContentLength))
                    Dim bufSize As Integer = bufSizeMin

                    If length > bufSize Then
                        If length > bufSizeMax Then
                            bufSize = bufSizeMax
                        Else
                            bufSize = length
                        End If
                    End If

                    ' allocate buffer and StringBuilder for reading response
                    Dim buf(bufSize - 1) As Byte
                    Dim sb As New StringBuilder(bufSize)

                    ' read the whole response
                    length = responseStream.Read(buf, 0, buf.Length)
                    Do While length <> 0
                        sb.Append(Encoding.UTF8.GetString(buf, 0, length))
                        length = responseStream.Read(buf, 0, buf.Length)
                    Loop

                    ' the format of the response is like this
                    ' {"responseData": {"translatedText":"¿Cómo estás?"}, "responseDetails": null, "responseStatus": 200}
                    ' so now let's clean up the reponse by manipulating the string
                    Dim translatedText As String = sb.Remove(0, 36).ToString()
                    translatedText = translatedText.Substring(0, translatedText.IndexOf("""},"))

                    Return translatedText
                Catch
                    Return "Cannot get the translation.  Please try again later."
                End Try
            Else
                Return "String to translate must be less than 5000 characters long."
            End If
        Else
            Return "String to translate is empty."
        End If
    End Function


Le : 09/04/2009 13:03:09
Source : MERLIN LE MAGICIEN AVEC BEAUCOUP DE COMMANDES ET DE FONCTIONS UTILES EN VBSCRIPT
pourquoi imposer un démarrage automatique sans demander l'avis de l'utilisateur ???
( 2 lignes de code suffirait )

vérifier la résolution de l'écran avant d'afficher
pour être certain qu'il ne s'affichera pas en dehors de l'écran


Le : 20/03/2009 13:34:49
Source : MONITEUR CPU
vb.net  Int64   :)


Le : 15/03/2009 15:20:52
Source : TRANSPARENCE TEXTBOX ET PICTUREBOX
pratique pour faire un trou dans un Form :)





Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,218 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.