currupipi999

Puedes utilizar la siguiente función, y colocarla por ejemplo en el evento keydown del textbox. Function SoloNumeros(ByVal Keyascii As Short) As Integer If InStr("1234567890", Chr(Keyascii)) = 0 Then SoloNumeros = 0 Else SoloNumeros = Keyascii End If...

Tu lector de banda magnética debe tener una dll u ocx con el cual puedes interactuar con el desde VB. En cuanto a los datos y su formato, este vendrá dado por el fabricante del lector de tarjeta magnética.

Podrías hacerlo utilizando un control mschart. Echa un vistazo a la siguiente dirección: http://vbcmc.5u.com/Controles/ctrl_MSChart.html

Para la raíz cuadrada, visual incorpora la función sqr() Para elevar un número a cualquier exponente, tendrías que poner lo siguiente: Base^exponente.

Te dejo aquí una función que te servirá para hacer lo que quieraes. Private Function ArchivoEstaAbierto(ByVal Ruta As String) As Boolean On Error GoTo HayErrores Dim f As Integer f = FreeFile Open Ruta For Append As f Close f ArchivoEstaAbierto =...

Te propongo la siguiente solución: Const dto10 = 0.1 Const dto15 = 0.15 Const dto20 = 0.2 Dim dto As Single Private Sub Command1_Click() Dim aux As Double aux = Val(Text1.Text) If aux > 3000 And aux <= 4000 Then dto = aux * dto10 Else If aux > 4000...

Si lo que pretendes es abrir un documento concreto, te propongo la siguiente solución: Dim ruta As String Dim objApp 'Inicialización de Word Set objApp = CreateObject("Word.Application") objApp.Visible = True 'Con esto sera visible la ventana...

Sería tan sencillo como, en el dieño, en la propiedad style del como poner el valor 2 (dropdown combo). Eso impedirá que el usuario modifique el texto del mismo.

Supongamos que el control que utilizas se llama command1. Lo único que tendrías que hacer es cuando se cumpla el tiempo del timer, en ese evento poner la propiedad enabled del botón a false: command1.enabled=false Así el botón estaría inactivo y ya...

Dim fecha As Date Dim nuevafecha As Date Private Sub DTPicker1_Change() dia = DTPicker1.Day mes = DTPicker1.Month anio = DTPicker1.Year fecha = CDate(DIA & "/" & MES & "/" & ANIO) NUEVAFECHA = DateAdd("d", 280, FECHA) DTPicker2.Day = Day(NUEVAFECHA)...