elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Temas
Páginas: 1 2 3 4 [5]
41  Programación / Programación Visual Basic / mshflexgrid en: 1 Mayo 2007, 01:10 am
hola bueno mi problema es el siguiente tengo un mshflexgrid  enlazado con una base de datos entonces cuando cambio los nombres en la base de datos me provoca un error y no me muestra nada quiero saber por que sucede esto

quiero cambiarle los nombres a los campos de las base de datos y despues cuando los cambio y ejecuto el programa me da un erro por fa ayudenme
42  Programación / Programación Visual Basic / Excel y Visual Basic como ????? en: 16 Abril 2007, 06:20 am
hola necesito un favor de ustedes me han dicho que en el msflexgrid se puede agregar datos y se puede modificar y eso mi caso es este

estoy haciendo un programa que me saque un control de gestion de una empresa la cual lleva ahorita todo eso en excel y yo lo que quiero es traer ese formato de excel a visual basic por medio del msflexgrid(si saben algo mas sencillo).

otro caso es este trayendo ese formato de excel a vb yo pudiera hacer los mismo como si lo estubiera haciendo en excel es decir sacar las funciones que me daba en excel las cuales son suma y resta y el porcentaje.

yo lo que quiero en si es traer ese formato de excel a vb para hacer todo eso sin necesidad de enrollarme tanto haciendo codigo para que me saque porcentaje y todo lo demas, claro tengo que escribir y poder modificar lo que traiga en excel
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
mi codigo es este
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
en el frm_Lectura tengo este
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Private Sub Form_Load()
Inicio
Caracteristicas
FormatearTabla
LlenadoDeTabla
End Sub
---------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Finalizar
End Sub
---------------------------------------------------------------
Private Sub mnuSalir_Click()
ApliNudos.Quit
End
End Sub

-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
y en el modulo que seria Lectura(Lectura.bas) tengo este
-------------------------------------------------------------------------------
Option Explicit

Public ApliNudos As Excel.Application
Public LibroNudos As Excel.Workbook
Public HojaNudos As Excel.Worksheet
Public RangoNudos As Excel.Range
Public CeldaVacia As Integer
Public Columnas As Integer
Public Filas As Integer
Public i As Integer, j As Integer
Public Sub Caracteristicas()
Set HojaNudos = LibroNudos.Sheets(1)
Set RangoNudos = HojaNudos.Rows(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Column
End If
Columnas = CeldaVacia
Set RangoNudos = HojaNudos.Columns(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Row
End If
Filas = CeldaVacia
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub Finalizar()
Set ApliNudos = Nothing
Set LibroNudos = Nothing
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub FormatearTabla()
With frmLectura.grdNudos
.Cols = Columnas
.Rows = Filas
.Visible = True
End With
End Sub

Public Sub Inicio()
Set ApliNudos = CreateObject("Excel.Application")
Set LibroNudos = ApliNudos.Workbooks.Open(App.Path & "\Nudos1.xls")
End Sub

Public Sub LlenadoDeTabla()
Set HojaNudos = LibroNudos.Worksheets(1)
For i = 1 To Columnas - 1
frmLectura.grdNudos.Col = i
For j = 1 To Filas - 1
frmLectura.grdNudos.Row = j
frmLectura.grdNudos.Text = HojaNudos.Cells(j, i)
Next j
Next i
End Sub

Sub Main()
frmLectura.Show
End Sub
43  Programación / Programación Visual Basic / Excel y VB en: 9 Abril 2007, 15:35 pm
bueno amigos tengo una duda yo tengo un formato de excel ya creado y estoy haciendo un programa en visual basic que quiero que me muestre este formato y yo poderle agregar eliminar modificar a esto.
44  Programación / Programación Visual Basic / acces y vb en: 9 Marzo 2007, 05:30 am
bueno estoy aprendiendo a utilizar el visual basic y lo que necesito en este momento es como puedo yo buscar desde vb un registro de x persona desde una base de datos en acces
45  Programación / Programación Visual Basic / ayuda con error de descifrar en: 19 Julio 2006, 21:48 pm
hola amigos tengo un problema, el cual es este tengo un programa que cifra y descifra pero solo me da la opcion de cifrar y para descifrar necesito hacerle unas modificaciones las cuales se las hago y me da un error alguien me podria hechar una manito este es el codigo

Option Explicit
'y puede servirle cuando necesita cifrar
'una contraseña por ejemplo
'No olvide que tiene que hacer referencia a la
'libreria ...   EncrDescr.DLL   ...  desde Proyecto - Referencias -
'botón Examinar y luego la marca.
'La libreria puede estar en el directorio de C:\Windows\System
'o bien en el Path de la misma aplicacion
'una vez que su aplicacion hace referencia a la
'libreria, simplemente la llama cifrado (su_palabra) para cifrar su_palabra
'o bien descifrado (su_palabra) para descifrar su_palabra
'vea el ejemplo en el mismo codigo mas abajo



Private Sub Command1_Click()
    Dim MiPalabra
   
    'PARA cifrar LA PALABRA
    MiPalabra = cifrado(Text1.Text)
    Text2.Text = MiPalabra
   
    'si lo que quiere es descifrar algo
    'lo haria de la siguiente forma
    'obviamente tuvo que haber sido previamente
    'cifrado con la misma libreria.
   
    'PARA descifrar LA PALABRA
    'MiPalabra = descifrado(Text1.Text)
    'Text2.Text = MiPalabra
   
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Command3_Click()
    MsgBox "La llamada es: cifrado (palabra) o descifrado(palabra)desde su programa.", vbInformation
End Sub

Private Sub Form_Load()

End Sub
Páginas: 1 2 3 4 [5]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines