Miren, necesitaría q alguien me ayude con este problema... ya me tiene loco
Es así... baje el código fuente de un programa para enviar mails anonimos... pero al momento de compilarlo me tira este error:
"No se puede encontrar el proyecto o la biblioteca"
Y me marca lo siguiente en el código:
Private Sub txtBody_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Long
If Shift <> 0 Then Exit Sub
If KeyCode = 9 Then
i = txtBody.SelStart
txtBody.Text = Left(txtBody.Text, i) & Chr(9) & Mid(txtBody.Text, i + 1)
txtBody.SelStart = i + 1
KeyCode = 0
End If
End Sub
Y lo mismo en esta parte:
Function GenerateCode(NumChar As Integer)
Randomize Timer
Dim Code As String
Dim Chars As Integer
Dim Alfa As Integer
Code = ""
For Chars = 1 To NumChar
Alfa = Int(Rnd * 2 + 1)
If Alfa = 2 Then
Code = Chr(Int((Rnd * 25 + 1) + 97)) & Code
Else
Code = Int((Rnd * 9 + 1)) & Code
End If
Next
GenerateCode = Code
End Function
Por favor... diganme como solucionar esto q me tira como error ese bendito Chr... no entiendo
Desde ya... gracias !!!!
Alejandro
