Canal Visual Basic

pozycjonowanie po pingwinie

infextWeimi — Tue, 21 May 2013 07:40:03 GMT

Pisałem o znaczeniu budowania link przedsiębiorstw natomiast podstawowych norm zaufania, znaczenie, władza, oraz obligacja w przeszłości i dumam, że to będzie dobry przedmiot do dodatkowego post-Penguin. Tworzenie strategii Hiperłącze odnoszą się bezpośrednio aż do modernizacji Penguin algorytmu, dzięki czemu czyszczenie albo "przycinanie" teraz Informacje ważne.Penguin unowocześnienie ma na obiektu czyszczenie witryn, które naruszają Wskazówki Google dla webmasterów na skroś obniżenie Violator w rankingach wyszukiwarek. Niemniej jednak dokuczanie link jest przebieg, że wszystkie przedsiębiorstwa, wszelkiej kwocie, SMB lub przedsiębiorstwa, należy myśleć o i adaptacji na bieżąco.
Jeśli aktualizacja Penguin i kara wysłał autorską stronę aż do dołu SERP (patrz abolicja poniżej wzorzec) i znajdziesz swoją stronę na paginy ósmej teraz po korzystających rankingu na pierwszej paginy na trwanie w znacznym stopniu konkurencyjnym, to jest czas, iżby przejrzeć i ocenić obecnie wstecznego i "prune" niektóre z tych linków zwrotnych niskopoziomowych. Poniżej poszukuje się jeden z dwóch części serii, które będą popierać jednostki z filtrowanie się niskopoziomowe linki natomiast się z Tobą w moralnych książek Google. W pierwszej części będą dyskutować, podczas gdy do procedura linków i wykonywać zasięg do zrezygnowania niskopoziomowe linki, natomiast druga część (w przyszłym miesiącu) zajmie się kompilować dane dla wyprzeć w Google i Bing i dotrzymywania pozytywnych klasyfikacji z poszukiwaniem silniki.
Czy to wygląda jak nieautorskiej stronie? Jeśli tak, to przypadkiem istnieć hit z aktualizacji modela Google Penguin.
źródło: pozycjonowanie strony www
[ULR="http://www.pozycjonowanie-strony-internetowej.pl/#contactUs"]

VB6 Copiar una hoja de excel desde VB

Inesusteam — Tue, 21 May 2013 03:37:53 GMT

Hola a todos,
Soy novato en VB aunque no en programaci�n y tengo un problema absurdo que llevo 3 d�as luchando.
Aunque es una tonter�a despu�s de implantar m�s de 100 c�digos que he ido encontrando por internet no me salgo.

Tengo un c�digo de VB6.0 que lleva a�os funcionando el cual va creando, cargando y "pintando" 5 hojas de datos a partir de datos que hay en una base de datos SQL. Y funciona perfectamente. El resultado son 200 ficheros (.xls) con informaci�n separada por Centro de Costes con nombres diferentes.
Ahora lo que hab�a de hacer es llamar a una hoja de Excel (p.e. en D:/data/dtos.xls) y copiarla cada vez que se generaran los 200 ficheros en una nueva hoja.
La idea es copiar la hoja de dtos.xls en una sexta hoja, preguntar el descuento (con un vlookup, que funciona perfectamente) y borrar la sexta hoja antes de generar el fichero del CeCoxxxxx.xls que se realiza al final. Y as� las 200 veces.
El problema es que he sabido hacer la copia. Voy cogiendo y entendiendo c�digo pero me da problemas de variables o funciones, , la apertura del fichero dtos.xls, activaci�n de hojas que no reconoce o simplemente no va.
Menuda tonter�a, pero no me salgo �Me pod�is ayudar?.
Iba a poner alg�n c�digo que he desarrollado, pero est�n simple que me adapto a vuestras sugerencias.
Gracias
Si prefer�s que ponga un c�digo para ver donde hago los errores me lo dec�s.

Control panel con sombreado 3d

h2ovb — Sun, 19 May 2013 09:13:01 GMT

Hola, muy buenas.

Alguien poria decirme como conseguir a�adir a un control Panel un efecto de sombreado 3d??, he buscado por el foro y por google y s�lo he conseguido ejemplos de degradados y 3d en los Label, pero no en un Panel que es lo que me gustaria hacer.

Si a alguno se le ocurre alguna forma sencilla de conseguirlo.. que me heche un cabla, muchas gracias.

Consulta sobre este formulario

Padawan01 — Sat, 18 May 2013 19:24:35 GMT

Bueno toy tratando de hacer funcionar este fomulario pero me falta algo para
que funcione en teoria este deberia ser para funcione un auto potion
de un juego online pero a la ahora de activarlo no funciona quisas me
falte complementar algo mas o quisas alguien conosca otra forma de
hacer un autopotion vb o otro lenguaje que me puede orientar

Duda para autopotion se saca :andress, pointer o value.... ?
y donde se pondria como se seria su funcion

[ highlight=vb]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
With TVida
.Enabled = False
.Interval = 200
End With
With TMana
.Enabled = False
.Interval = 200
End With
End Sub
Private Sub HP()
If TVida.Enabled = False Then
TVida.Interval = CInt(Val(Text1.Text))
TVida.Enabled = True
Command1.Caption = "Parar"
Else
TVida.Enabled = False
Command1.Caption = "Empezar"
End If
End Sub

Private Sub MP()
If TMana.Enabled = False Then
TMana.Interval = CInt(Val(Text2.Text))
TMana.Enabled = True
Command2.Caption = "Parar"
Else
TMana.Enabled = False
Command2.Caption = "Empezar"
End If
End Sub
Private Sub Command1_Click()
Call HP
End Sub
Private Sub Command2_Click()
Call MP
End Sub
Private Sub TVida_Timer()
SendKeys (vbKeyF7)
End Sub
Private Sub TMana_Timer()
SendKeys (vbKeyF8)
End Sub
Private Function GetKeyState(Key As Integer) As Boolean
GetKeyState = CBool(GetAsyncKeyState(Key))
End Function
Private Sub HotKeys_Timer()
If GetKeyState(vbKey1) = True Then
Call Command1_Click
ElseIf GetKeyState(vbKey2) = True Then
Call Command2_Click
End If
End Sub[/highlight]

pd funciona el geshi para colorear

Ayuda para sacar un reporte

jhoel — Thu, 16 May 2013 16:55:29 GMT

Buenas
Tengo un problema con una consulta a una base de datos Access resurta que quiero sacar un reporte con los siguientes campo
El resultado se muestra de la siguiente manera

Cajero	venta	monto	monto total
Beto	1	150	180
Beto	1	200	250
Mar�a	1	300	350
Mar�a	1	200	252
Mar�a	1	100	125

Y lo que necesito es que me quede as�

Cajero	venta	monto	monto total
Beto	2	350	430
Mar�a	3	600	727

Aqu� podemos apreciar que los campos se suman a su respectivo cajero

Lo que me gustar�a saber es si puedo hacer esto desde la consulta o si tendr� que hacerlo desde el �formulario?
En cualquiera de lo casos cual seria el c�digo que deber�a emplear
Espero me puedan echar una mano
Gracias

Ayuda para sacar un reporte

jhoel — Thu, 16 May 2013 16:34:29 GMT

Buenas
Tengo un problema con una consulta a una base de datos Access resurta que quiero sacar un reporte con los siguientes campo
El resultado se muestra de la siguiente manera
__________________________________________________
Cajero venta monto monto total

Beto 1 150 180
Beto 1 200 250
Mar�a 1 300 350
Mar�a 1 200 252
Mar�a 1 100 125

_________________________________________________

Y lo que necesito es que me quede as�

____________________________________________
Cajero venta monto monto total

Beto 2 350 430
Mar�a 3 600 727
_____________________________________________

Aqu� podemos apreciar que los campos se suman a su respectivo cajero

Lo que me gustar�a saber es si puedo hacer esto desde la consulta o si tendr� que hacerlo desde el �formulario?
En cualquiera de lo casos cual seria el c�digo que deber�a emplear
Espero me puedan echar una mano
Gracias

imprimir documento word con sol apretar boton

blascko — Thu, 16 May 2013 05:10:32 GMT

Buenos Noches, como dice el titulo me gustar�a imprimir un documento word ya predefinido pero sin dialogo sin cuadro de opciones tan solo presionar un bot�n y realizar la impresi�n, en la web hay varios c�digos pero como no conozco los m�todos no he podido modificar, ojala me puedan ayudar.

Saludos

Crear Archivo de texto visual basic 2008 web

rariverar2006 — Wed, 15 May 2013 21:06:47 GMT

Buenas Tardes,

Estoy trabajando en una pagina web en visual basic 2008, necesito crear un archivo con unos datos que tengo en una lista. por los datos no hay problema, ya los tengo en la pagina en una lista.

la idea es tomar los datos de esa lista y generar un archivo de texto y darle la opcion al usuario de que selecione la ruta donde desee guardar el archivo.

El inconveniente es que no conozco nada acerca de manejo de archivos, le agradeceria si alguien tiene un ejemplo o me da una manito, mientras yo sigo averiguando.

cordialmente

Ruben R

Demora en consulta

Pulgarin — Wed, 15 May 2013 14:37:26 GMT

He buscado por internet y en muchos foros, y no consigo respuesta, mi problema no es de deficiencia del c�digo (creo yo), porque la consulta se realiza, pero se demora mucho.

C�digo:

+++++++++++++++++++++ como lo ten�a la primera vez ++++++++++++++++++++++++++++++++

Set db = New ADODB.Connection

db.CursorLocation = adUseClient

db.Open dsnfox



Set myset = New ADODB.Recordset

sql = "SELECT MAX (noexam.examen) maxima FROM examen;"

myset.Open sql, db, adOpenDynamic, adLockOptimistic

If Not myset.EOF Then

newid = CLng(myset!maxima)

reg.noexam(i) = newid + 1

Else

MsgBox "La base examen.dbf devuelve EOF"

End If

myset.Close

Set myset = Nothing







********************* como lo puse la segunda vez ************************************

Set db = New ADODB.Connection

db.CursorLocation = adUseClient

db.Open dsnfox



Set myset = New ADODB.Recordset

sql = "SELECT noexam FROM examen;"

' sql = "SELECT * FROM examen;"

myset.Open sql, db, adOpenDynamic, adLockOptimistic

If Not myset.EOF Then

myset.MoveLast

newid = CLng(myset!noexam)

reg.noexam(i) = newid + 1

Else

MsgBox "La base examen.dbf devuelve EOF"

End If

myset.Close

Set myset = Nothing

En codigo de abrir la tabla utilic� adOpenKeyset y adOpenStatic, combinado con adLockReadOnly y tampoco funciona.

Todo lo hace perfecto si la base de datos (que es VFP 9.0) est� en la misma m�quina donde est� el ejecutable y de las 2 maneras, pero todo cambia cuando se realiza desde otra m�quina en la red, hace la busqueda pero se demora entre 2 y 5 min, si ven solo necesito el c�digo del �ltimo registro y sumarle uno para obtener un nuevo registro, suena tonto pero el progrma corre en win2000, no me pregunten por qu� (creo que mi jefe no quiere comprar las licencias de win7 aunque yo mismo lo probe en win7 y winXP), chequee que los ODBC est�n correctos, y cuando instalo el VFP 9.0 los instala por defecto.

He utilizado estos string conecction
Provider=vfpoledb;Data Source=\\BaseDatos\bd.dbc.dbc;Collating Sequence=machine;
Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=\\BaseDatos\bd.dbc .dbc;Exclusive=No;NULL=NO;Collate=Machine;BACKGROU NDFETCH=NO;DELETED=NO;
DSN=Visual FoxPro Database;UID=;SourceDB=\\BaseDatos\bd.dbc;SourceTy pe=DBC;Exclusive=No;BackgroundFetch=S�;Collate=Mac hine;Null=No;Deleted=No;

Tambien utilice Exclusive=S� para los 2 �ltimos casos, tambien use en vez de el nombre de la maquina us� la direcci�n IP.

Anteriormente ya hab�a comentado esto en el foro, y no me respondieron;
Tema anterior
Antes que nada, muchas gracias y disculpen las molestias

NOTA: todo esto es realizado en VB 6.0

Detectar todos los colores de una imagen

jona — Wed, 15 May 2013 02:29:49 GMT

Y la cantidad del color o el porcentaje. por ejemplo rojo 20% azul 80%.

Hi, canalvisualbasic

judithd3 — Fri, 10 May 2013 08:25:52 GMT

Hi,
My first post here, I'm happy to join this form and nice to know you all. I want to intruduce an online store which offer Air Max 1 Black to you. Much thanks for your time.

Ayuda con ABM sin base de datos

naster — Thu, 09 May 2013 20:53:53 GMT

Buenas tardes tengo un problema con un abm que no usa persistencia en DB, solo un listbox y una lista.
Les comento un caso en el cual se me presenta el problema: Doy de alta algunos programadores (3 por ejemplo), eso funciona perfecto se agregan a la lista y aparecen en el listbox, el tema es cuando quiero modificar o dar de baja. Elijo alg�n programador del listbox y se dispara el evento SelectedIndexChanged. El ABM esta manejado por un manejador central, el lstbox tiene su propio manejador que solo se encarga de habilitar baja-modificaci�n y deshabilitar el SelectedIndexChanged hasta elegir baja o modificaci�n.
Cuando debuggeo, noto que hace varias iteraciones en el manejador de SelectedIndexChanged, luego muestra el form a modificar correctamente, pero cuando hago click en aceptar en lugar de modificar los datos y mostrar el listbox actualizado, itera nuevamente sobre el manejador central que se encarga de ABM y termina generando la excepci�n "index was out of range. must be non-negative and less than the size of the collection"
Les muestro las consignas de los ejercicios relacionados al problema y el c�digo del formulario donde se realiza el ABM.
Mi pregunta es si me podr�an se�alar donde est� el error, ya que le di muchas vueltas al c�digo y no logro corregirlo.
Muchas Gracias.

3) Los manejadores del ListBox y los botones �-�y �Modificar� No deben tener manejadores agregados de forma est�tica. Agregar y quitar manejadores de forma
din�mica de tal forma que no generen errores, en tiempo de ejecuci�n, de �ndices al hacer click en los botones �-�y el �modificar�, como as� tambi�n en el ListBox.
4) En el bot�n �Modificar� mostraremos una instancia del formulario FrmProgramador con todos los datos del programador seleccionado en el ListBox para ser
modificados. Recordar que la propiedad Programador del formulario debe ser de s�lo lectura.
5) En el bot�n �-�se mostrar� una instancia del formulario heredado con el programador seleccionado en el ListBox y el importe a pagar al programador, este importe
se obtiene de los minutos que estuvo trabajando multiplicado por el pago por hora del programador, utilizar la funci�n DateDiff, toda la informaci�n mostrada se
guardar� en un archivo de texto que se ubicar� en el mismo directorio donde se est� ejecutando la aplicaci�n

C�digo:

Imports BibliotecaProgramador

Imports System.IO

Imports System.Text



Public Class FrmListado



    Protected _listaProgramadores As New List(Of Programador)

    Private delegadoOrdenamiento As Comparison(Of Programador)

    

    Private Sub FrmListado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        CargarComboOrdenamiento()

        Me.cboOrdenamiento.DropDownStyle = ComboBoxStyle.DropDownList

        Me.cboOrdenamiento.SelectedItem = "Ordenar por Categoria"

        AddHandler btnAlta.Click, AddressOf ManejadorCentral

    End Sub



    Private Sub CargarComboOrdenamiento()

        Me.cboOrdenamiento.Items.Clear()

        Me.cboOrdenamiento.Items.Add("Ordenar por Legajo")

        Me.cboOrdenamiento.Items.Add("Ordenar por Categoria")

        Me.cboOrdenamiento.Items.Add("Ordenar por Ingreso")

    End Sub



    Private Sub CargarListbox()

        For Each item As Programador In Me._listaProgramadores

            Me.lstProgramadores.Items.Add(item)

        Next

    End Sub



    Private Sub cboOrdenamiento_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboOrdenamiento.SelectedIndexChanged

        'legajo 0

        'categoria 1

        'ingreso 2

        Select Case Me.cboOrdenamiento.SelectedIndex

            Case 0

                delegadoOrdenamiento = New Comparison(Of Programador)(AddressOf Programador.OrdenarPorLegajo)

            Case 1

                delegadoOrdenamiento = New Comparison(Of Programador)(AddressOf Programador.OrdenarPorCategoria)

            Case 2

                delegadoOrdenamiento = New Comparison(Of Programador)(AddressOf Programador.OrdenarPorHora)

        End Select

        Me._listaProgramadores.Sort(delegadoOrdenamiento)



        If Me.lstProgramadores.Items.Count > 0 Then

            Me.CargarListbox()

        End If

    End Sub



#Region "Manejador central con asignacion en tiempo de ejecucion"





    Private Sub ManejadorCentral(ByVal sender As Object, ByVal e As EventArgs)

        'Delegado para ALTAS

        If (CType(sender, Button).Name = "btnAlta") Then

            Dim frmIngreso As New FrmProgramador()



            If frmIngreso.ShowDialog() = Windows.Forms.DialogResult.OK Then

                Me._listaProgramadores.Add(frmIngreso.Programador)

                'Me.lstProgramadores.Items.Add(frmIngreso.Programador)

            End If

            'Delegado para MODIFICACIONES

        ElseIf (CType(sender, Button).Name = "btnModificar") Then

            Dim frmModificada As New FrmProgramador(CType(Me._listaProgramadores(Me.lstProgramadores.SelectedIndex), Programador))



            If frmModificada.ShowDialog() = Windows.Forms.DialogResult.OK Then

                Me._listaProgramadores.Item(Me.lstProgramadores.SelectedIndex) = frmModificada.Programador



            End If

            'Delegado para BAJAS

        ElseIf (CType(sender, Button).Name = "btnBaja") Then

            Dim frmAEliminar As New FrmHeredado(CType(Me._listaProgramadores(Me.lstProgramadores.SelectedIndex), Programador))



            If frmAEliminar.ShowDialog = Windows.Forms.DialogResult.OK Then

                Dim sb As New StringBuilder()

                sb.AppendLine("********************************")

                sb.AppendLine("Nombre: " & frmAEliminar.txtNombre.Text)

                sb.AppendLine("Legajo: " & frmAEliminar.txtLegajo.Text)

                sb.AppendLine("Categoria: " & frmAEliminar.cboCategoria.SelectedItem.ToString())

                sb.AppendLine("Hora de ingreso: " & frmAEliminar.Programador.HoraIngreso.ToString())

                sb.AppendLine("Precio por hora: " & frmAEliminar.txtPagoPorHora.Text)

                sb.AppendLine("Pago total: " & frmAEliminar.txtPago.Text)

                sb.AppendLine("********************************")

                My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.CurrentDirectory & "\Info_Programador.txt", sb.ToString(), True)

                Me._listaProgramadores.RemoveAt(Me.lstProgramadores.SelectedIndex)



                MessageBox.Show("Se ha eliminado el programador y se guard� la informacion en un archivo de texto.", "Baja confirmada", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        End If



        miVariableDelegadoMostrar.Invoke(Me._listaProgramadores)

        CargarListbox()

        RemoveHandler btnAlta.Click, AddressOf ManejadorCentral

        RemoveHandler btnBaja.Click, AddressOf ManejadorCentral

        RemoveHandler btnModificar.Click, AddressOf ManejadorCentral



        AddHandler btnAlta.Click, AddressOf ManejadorCentral

        AddHandler lstProgramadores.SelectedIndexChanged, AddressOf lstProgramadores_SelectedIndexChanged



    End Sub



    Private Sub lstProgramadores_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        AddHandler btnBaja.Click, AddressOf ManejadorCentral

        AddHandler btnModificar.Click, AddressOf ManejadorCentral

        RemoveHandler lstProgramadores.SelectedIndexChanged, AddressOf lstProgramadores_SelectedIndexChanged

    End Sub



#End Region





    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click

        Me.Close()

    End Sub

End Class

Actualizar celdas del datagridview sin a�adir filas

David Varela — Thu, 09 May 2013 14:23:26 GMT

Hola,

Estoy realizando mi proyecto fin de carrera con VB 2010 (soy novato en modo autoestudio) y estoy atascado con un datagridview. Resulta que tengo un formulario con unos textbox donde introduzco datos y un bot�n para calcular. Una vez presiono el bot�n se rellena el datagridview con sus filas perfectamente. El problema es que si yo quiero editar los datos de los textbox, al darle al bot�n de calcular otra vez me vuelve a rellenar el datagrid con otras tantas filas. Lo que yo quiero es que actualice las existentes para que no se vayan acumulando las filas.

Si alguien me puede ayudar le estar�a muy agradecido.

Saludos

Ayuda problema

Carpiozilla — Thu, 09 May 2013 04:39:19 GMT

buenas noches quisiera pedir su ayuda, ma�ana es mi examen final para el cual me dieron un problema que no entiendo como se soluciona...ni si quiera entiendo el problema ._.

dice asi

2 ciclistas competir�n en una carrera. el primero tiene ventaja debido a que el 2do es capaz de realizar una marcha mas veloz. dise�ar un programa que imprima la distancia que ha recorrido cada ciclista a partir de la linea de salida. estas distancias se imprimir�n cada 5 minutos de la carrera comenzando cuando el 2do ciclista haya partido y continuado mientas el primer ciclista vaya todav�a a la cabeza. las velocidades de cada ciclista ser�n:
-1er ciclista.-10 millas/hora
2do ciclista.-12 millas/hora
ventaja que le da el primer ciclista media hora

tengo 2 dias con el y no le entiendo si me pudieran ayudar se los agradecer�a mucho n.n

como activar teclas en el vb 6.0

Padawan01 — Wed, 08 May 2013 15:54:31 GMT

Bueno hola a toda la comunidad quiero ayuden
tengo un projecto pero como seria el comando o funcion
de hotkey osea quiero se active aprentando F1... F12 y tmb para
que se desactive con la misma tecla
o algun tecla o numeral ojalas me `pueden ayudar soy nuevo
en esto y resien toy poco poco aprendiendo en vb 6.0

Private Sub Command1_Click()
Dim X As Long
Dim X As Long
Call ReadALong("usca", &H7001ABC, X)
X1 = X + &H117008
Call WriteALong("usca", X1, 100000)
End Sub

Private Sub Command2_Click()
Dim X As Long
Dim X As Long
Call ReadALong("usca", &H7001ABC, X)
X1 = X + &H117008
Call WriteALong("usca", X1, 100)
End Sub

Como se seria que cada command se activara y desactivara con una tecla digamos A ,1 ,+
o con una combinacion de teclas digamos ALT+5 , CTROL+F3

PD creo seria 1 timer o 2 pero como seria la funcion aver por favot me das una mano