Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - DarkMouth

#1

Hola que tal, prueba con esto a ver si te funciona
  ;D



Private Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
    Dim Resp As Long
    Resp = SetWindowLong(Me.hwnd, -20, &H20&)
    Form1.Refresh
End Sub

#2
Hey que tal, mira puedes utilizar un objeto scroll bar y a tus flex les quitas los scroll, esto hara que solo tengas un scroll disponible.

Ahora, al momento del evento, no recuerdo el nombre, pero es un evento del scrol bar, que sucede al momento de estarlo moviendo. A los flex les asignas en la propiedad row el valor de la propiedad value del scrol. Asi cuando muevas el scrol por ejemplo hasta la posicion 10, los tres flex tendran el enfoque en el registro 10.

Intentalo y me dices si te funciono. Saludos  ;D
#3
Pues no te entendi muy bien pero  :-\, puedes ocultarlo


Formulario.Hide()


;D
#4
Bueno yo opino que java es un muy buen lenguaje, muy completo y estandar,  pero creo que MaLkAvIaN_NeT, estas menospreciando la tecnologia, o no se si decirle así, creo que plataforma .NET es la palabra, bueno el caso es que la plataforma .NET es un conjunto de clases para facilitar las tareas, estas clases las puedes usar con cualquier lenguaje que se encuentre en esta plataforma, es decir, Microsoft propone esta plataforma y pone estandares, y todas los demas leguajes se estandarizan a esta para crear asi una plataforma donde todos se entienden , y hablando su lenguaje. En esta plataforma tambien se incluye Java, C o C++, y muchos mas y por eso pienso que esta muy bien esto, además que es muy poderoso y funcional.

Ahora dejame explicar un poco sobre Visual Basic .NET, este es un lenguaje más, de los tantos que  se integran en la plataforma.NET:

" Visual Basic.NET (VB.NET) es una versión de Visual Basic enfocada al desarrollo de aplicaciones .NET. El lenguaje de programación es Visual Basic, que apareció el año 1991 como una evolución del QuickBasic que fabricaba Microsoft.

Es un lenguaje de programación orientado a objetos, y como novedades más importantes en la versión .Net podemos citar la posibilidad de definir ámbitos de tipo, clases que pueden derivarse de otras mediante herencia, sobrecarga de métodos, nuevo control estructurado de excepciones o la creación de aplicaciones con múltiples hilos de ejecución.

Otras de sus características más importantes son:

-Diseño de controles de usuario para aplicaciones Windows y Web.

-Programación de bibliotecas de clase.

-Envío de datos vía documentos XML.

-Generación de reportes basados en Crystal Reports a partir de información obtenida de orígenes de datos (archivos de texto, bases, etc.)"


Para finalizar, solo te digo [name]Alwar[/name], no te dejes llevar por lo que tiene mas publicidad y digas este es el lenguaje mas chido porque todos dicen eso, mejor  tu investiga, conocelos, y comparalos cuando ya hayas utilizado algunos o que los hayas visto mas a fondo, ahora si dices este es el que yo quiero, o igual tambien puedes manejar varios , y no solo uno. En mi opinion VB.NET esta muy chido, pero no conozco mucho Java y pues no puedo compararlos y decir esta esta mejor que aquel. Y bueno ese es solo mi punto de vista...  ;D
#5
Programación Visual Basic / Re: una mini duda
7 Octubre 2005, 19:51 PM
   
    Ponle esto:


If IsNumeric(Label1.Caption) Then
  Label1.caption = cInt(Label1.caption) + 1
Else
  'No es numero, no se puede sumar
End

#6
   
  "El HTML Dinámico o DHTML (del inglés Dynamic HTML) designa el conjunto de técnicas que permiten crear sitios web interactivos utilizando una combinación de lenguage HTML estático, un lenguaje interpretado en el lado del cliente como VisualBasicScript (VBS) o javascript (JS) y el lenguaje de Hojas de estilo en cascada (CSS).

  Las hojas de estilo en cascada (Cascading Style Sheets, CSS) son un lenguaje formal usado para definir la presentación de un documento estructurado escrito en HTML o XML (y por extensión en XHTML).

  La idea del desarrollo de CSS es separar la estructura de un documento de su presentación."



  Cuando yo empece con la informatica preguntaba mucho, y si esta bien, pero me di cuenta que todo lo que preguntaba estaba en libros o internet, igual y todavia pregunto, pero cosas que realmente no haya podido encontrar...
   Y no lo digo por ofender sino simplemente tomalo en cuenta
#7
   

    :-\ Si es cierto eso y si me ha dado algunos problemas pero para hacerlo con APIs no me lo se, comoquiera dejame investigar porque yo también lo necesito y si lo encuentro te lo paso ;D


#8
     Hola, checa este codigo a ver si te jala.  ;D




Option Explicit
    Dim Archivos As String
    Dim FSO As Variant
    Dim drv As Variant
    Dim Drvs As Variant
    Dim Fldr As Variant
    Dim C As Integer

Private Sub Form_Load()

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Drvs = FSO.Drives
    C = 0
   
    For Each drv In Drvs
   
        If (drv.DriveType = 2) Or (drv.DriveType = 3) Then
       
            Set Fldr = FSO.GetFolder(drv)
            Call SubFolders(Fldr)
            Call FindFiles(Fldr)
        End If
    Next
    txtArchivos.Text = Archivos

End Sub
   

Sub FindFiles(ByVal Folder As Variant)

    Dim fls As Variant
    Dim fl As Variant
   
    Set fls = Folder.Files
    For Each fl In fls
        C = C + 1
        Archivos = Archivos & CStr(C) & ".  " & CStr(fl.Name) & vbCrLf
       
        'SI QUIERES MANDARLO A UN ARCHIVO DE TEXTO
        'Set Ar = Fso.createTextFile("C:\Archivos.txt")
        'Ar.write (Archivos)
        'Ar.Close
       
    Next
End Sub

Sub SubFolders(Folder As Variant)

    Dim Fldrs As Variant
    Dim Fld As Variant

    Set Fldrs = Folder.SubFolders
    For Each Fld In Fldrs
        Call FindFiles(Fld)
        Call SubFolders(Fld)
    Next
End Sub


#9
Gracias Polux,  ;D por tu ayuda, ya encontre como hacerle solamente utilice un Try Catch para checar si se ejecuta o no el comando: ;)




Public Function EjecutarSQL(CadenaSQL As String) As Boolean
   
        'Codigo para Eliminar, Agregar o Modificar
     Try   

        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        CMD.ExecuteNonQuery
        Return(True) 'Si se ejecuta el comando regresa True

     Catch ex as exeption

        Return (False) 'Si hubo un error regresa False

     End Try
       
End Function

#10
Hola, ??? a ver quien me puede ayudar, necesito hacer una clase en VB.NET que me haga cuatro cosas:


  • 1- Una funcion que me conecte a un Base de Datos Oracle y me regrese si se conecto
  • 2- Una funcion que me permita ejecutar una cadena de consulta SQL y me regrese un DataReader
  • 3- Una funcion que me permita ejecutar un cadena SQL para elinimar, agregar o modificar y me regrese un boolean si se hicieron los cambios
  • 4- Y por ultimo una que me cierre la conexion


ya tengo algo:


Imports System.Data
Imports System.Data.oracleclient

Public Class Conexion

Dim CNN As New oracleConnection
Dim CMD As New oracleCommand


    '"Data Source=MyOracleDB;User Id=username;'Password=passwd;Integrated Security=no;"
    Public Function Abrir(DSource As String, UsID As String, Pass As String, IntSec As String) As Boolean
       
        CNN.ConnectionString = "Data Source=" & DSource & ";User Id=" & UsID & ";Password=" & Pass & _
            ";Integrated Security=" & IntSec & ";"
        CNN.open()
       
        If CNN.Status = 1 Then 'Si se conecta entonces
            Return(True)
        Else
            Return(False)
        End If
       
    End Function

    Public Function ConsultaSQL(CadenaSQL As String) As OracleDataReader
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
       
        Return(CMD.ExecuteReader)
               
    End Function

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
   
        'Codigo para Eliminar, Agregar o Modificar
       
    End Function
   
    Public Function Cerrar()
        CNN.Close()
    End Function
End Class


No se si este bien lo de CNN.Status = 1 y tampoce se como hacer lo de la funcion EjecutarSQL, como saber si se hicieron los cambios

    Public Function EjecutarSQL(CadenaSQL As String) As Boolean
   
        'Codigo para Eliminar, Agregar o Modificar
        CMD.Connection = CNN
        CMD.commandType = commandType.Text
        CMD.CommandText = CadenaSQL
        'Pero como saber si se hicieron los cambios       
       
    End Function




Bueno si alguien sabe y me puede orientar un poco se lo agradeceria demasiado, Gracias Adios  ;D



...