Buenas,
Quisiera hacer que ene l load del form, apareciesen, cada vez que el exe se carga, una frase aleatoria que yo pondria. No me imagino como deberia aserlo ya que es la 1º vez que hago algo asin :S
Y tambien me gustaria saber comoo hacer para que el user que habr el exe, al darle a un boton, la frase que hay en el text1 se meta en el codigo y se quede hay. No se si esto ultimo es posible epro si no lo fuese pos ya vere como lo podria haer.
Desde ya gracias a todos^^
Supongo que lo que quieres hacer es algo parecido a la "Sugerencia del día" o en inglés: "Tip of the day".
Hay muchos ejemplos, te dejo un link rápido de pscode.com: http://www.pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&?lngWId=1&grpCategories=&txtMaxNumberOfEntriesPerPage=10&optSort=Alphabetical&chkThoroughSearch=&blnTopCode=False&blnNewestCode=False&blnAuthorSearch=False&lngAuthorId=&strAuthorName=&blnResetAllVariables=&blnEditCode=False&mblnIsSuperAdminAccessOn=False&intFirstRecordOnPage=1&intLastRecordOnPage=10&intMaxNumberOfEntriesPerPage=10&intLastRecordInRecordset=65&chkCodeTypeZip=&chkCodeDifficulty=&chkCodeTypeText=&chkCodeTypeArticle=&chkCode3rdPartyReview=&txtCriteria=tip+of+the+day
Muchisimas gracia^^ MadAntrax, ya he hecho que aparezcan por si solo, mas o menos le cogi la logica XDD
Ahora me faltaria, si algiuien sabe, como hago para que lo que se escribe en un textbx al darle click se añada al code.
En la pag que me diste nu encontre :(
Holanda,
Mira por ahi, uno de estos dias postiaron
el tema de la funcion Rnd, y lo encontre
interesante :o... entonces usando Case
quedaria mas o menos asi ;D:
Dim Tips As Integer 'Si no es entero(integer) no funcionara
Private Sub Form_Load()
Randomize
Tips = Rnd * 5 'Generas un numero aleatorio
End Sub
Private Sub Form_activate()
' Y aqui, segun el numero aleatorio
' te muestra en una caja de texto
' el tips para cada Case, siiiiiiiii :xD
Select Case Tips
Case 0
Text1 = "Hoy es el dia para suicidarse"
Case 1
Text1 = "Esta de moda martillarse los dedos ;)"
Case 2
Text1 = "No tomes viagra"
Case 3
Text1 = "Chuchuca!"
Case 4
Text1 = "Tu novia no te desea... puaaj"
Case 5
Text1 = "Muerdete la lengua... (8)"
End Select
End Sub
Ahora bien, lo ejecute en mi pc, y la mayoria de las veces
salian los mensajes que estan en medio, osea...
salian mas veces el Case 2, 3 y 4 que el 1 y el 5 :-(
Espero te sirva y sino, que encuentres uno mejor
Suerte
Chauuuuz ;)
pues ya habai conseguido hacer estoi pero la verdad, este es mucho mas sencllo que el que yo consegui^^
Pero lo que yo quisiera ahora esque en un texbox se escriba lo que se quiera y luego se añada al code, nuse si s podra hacer :S si no se puede pos weno, no pasa nada
jeje a mi tb se me habia ocurrido mientras leia hacer como dice Cesar... :P
Cita de: coku en 8 Enero 2008, 20:06 PM
pues ya habai conseguido hacer estoi pero la verdad, este es mucho mas sencllo que el que yo consegui^^
Pero lo que yo quisiera ahora esque en un texbox se escriba lo que se quiera y luego se añada al code, nuse si s podra hacer :S si no se puede pos weno, no pasa nada
Es que no entendi nunca lo que quieres :P
lei como tres veces la explicacion y no entendi,
desde un texbox al code :huh: :huh: :S
Quizas si fueras ma especifico, o quizas
con algun ejemplo ;D
Suerte
Chauuuz
ok me explicare mejor,
Hay un textbox (text1) y un commandbutton(command1). Bien, escribo la frase que quiero que salga aleatoria en el textbox, y al darle al command1 que haga algo asin:
Dim Tips As Integer 'Si no es entero(integer) no funcionara
Private Sub Form_Load()
Randomize
Tips = Rnd * 5 'Generas un numero aleatorio
End Sub
Private Sub Form_activate()
' Y aqui, segun el numero aleatorio
' te muestra en una caja de texto
' el tips para cada Case, siiiiiiiii :xD
Select Case Tips
Case 0
Text1 = "Hoy es el dia para suicidarse"
Case 1
Text1 = "Esta de moda martillarse los dedos ;)"
Case 2
Text1 = "No tomes viagra"
Case 3
Text1 = "Chuchuca!"
Case 4
Text1 = "Tu novia no te desea... puaaj"
Case 5
Text1 = "Muerdete la lengua... (8)"
Case 6
Text1 = "lo que haya escrito en el text1"
End Select
End Sub
Lo que querria es que lo que escriba se añada al code para que cuando se apague y se vuelva a cargar el form, pueda aparecer aleatoriamente la frase escrita junto a las dmas.
Es algo asin, tal vez se lo añada o no a mi programa, peo tan bien es para aprender, seguramente se lo añada :P
la guardas en un archivo y al encender el programa cargas el archivo si no sabes hacer eso busca por el foro que esta trilladisimo el tema
ok, pues muchas gracias a todos a ver si ecneuntro el tema^^
sobre manejo de archivos mira este link... (lo es todo para mi xD) jja
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm
SALUDOS
incrustarlo en el code lo hallo inexistente :xD
para darte nuevas ideas, otros caminos,
igual de interesante :) te dejo el codigo
de como leer y escribir archivos INI ;D
En un Modulo inserta el siguiente codigo:
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Function ReadINI(strSection As String, strSetting As String, strDefault As String, strRuta As String)
Dim lngReturn As Long, strReturn As String, lngSize As Long
lngSize = 255
strReturn = String(lngSize, 0)
lngReturn = GetPrivateProfileString(strSection, strSetting, strDefault, strReturn, lngSize, strRuta)
If strReturn = "" Then
ReadINI = strDefault
WriteINI strSection, strSetting, strDefault
Else
ReadINI = LeftOf(strReturn, Chr(0))
End If
End Function
Function WriteINI(strSection As String, strLValue As String, strRValue As String, strRuta As String)
Dim lngReturn As Long
lngReturn = WritePrivateProfileString(strSection, strLValue, strRValue, strRuta)
End Function
Function LeftOf(strData As String, strDelim As String) As String
Dim intPos As Integer
intPos = InStr(strData, strDelim)
If intPos Then
LeftOf = Left(strData, intPos - 1)
Else
LeftOf = strData
End If
End Function
En el Form:
Private Sub Command1_Click()
' Esta es la funcion para guardar el tip en el ini
WriteINI "Tips", "ID", Text1, App.Path & "Tips.ini"
End Sub
Private Sub Command2_Click()
' Y con este boton obtenemos los datos en el Text1
Text1 = ReadINI("Tips", "ID", "1", App.Path & "Tips.ini")
End Sub
Ahi para que te entretengas adaptandolo jajajaja
duro trabajo xD
Suerte, Chauuuuuz ;D