SoloCodigo

Gracias Cyclops por el Link. le he hechado un vistazo y parece que tiene cosas interesantes como mínimo para probarlas.

Un cordial saludo
-acalanto-

La solución propuesta de los colores es válida siempre y cuando dos provincias contiguas no tengan el mismo color (no podrías saber en cual de ellas estás).

La solución pasa por que controles dentro de que polígono se encuentra el cursor.

Supongo que conoces las coordenadas (x,y) del contorno de cada provincia que representes en el mapa. Si es así te puedes crear una estructura de datos más o menos de esta forma

type poligono
x as double
y as double
end type

type provincias
id as integer
nombre as string
items as integer
contorno() as poligono
end type

public mymap() as provincias

'Carga los datos

redim mymap(1 to totalprovincias)

'Empiezas a llenar la estructura (esto lo puedes tener en un fichero con el mismo formato.

'ALAVA
mymap(1).id=1
mymap(1).nombre="Alava"
mymap(1).items=10
redim mymap(1).contorno(1 to 10)
'coordenadas del polígono ALAVA
mymap(1).contorno(1).x=1000
mymap(1).contorno(1).y=2000
mymap(1).contorno(2).x)=1200
......
......
mymap(1).contorno(10).x=9600
mymap(1).contorno(10).y)=12300


'BADAJOZ
mymap(2).id=2
mymap(2).nombre="Badajóz"
mymap(2).items=6
redim mymap(2).contorno(1 to 6)
'coordenadas del polígono BADAJOZ
mymap(2).contorno(1).x=500
mymap(2).contorno(1).y=600
mymap(2).contorno(2).x)=560
......
......
mymap(2).contorno(6).x=450
mymap(2).contorno(6).y)=320


'ASI HASTA TENER TODAS LAS COORDENADAS EN LA ESTRUCTURA


Una vez tienes dibujado sobre un objeto PICTURE las provincias con sus colores, datos etc etc.. y escalado a la misma escala que las coordenadas grabadas, deberás de controlar el paso del mouse y cada vez que se mueva llamar a una función parecida a está.
si la función te devuelve <> 0, este será el ID de la provincia y a partir de aqui lo que quieras hacer. Si es =0, el cursor no esta dentro de ninguna provincia.
Puede resultar un poco complejo pero desde luego es la solución más elegante y profesional.


NOTA: LAS COORDENADAS DE LOS POLIGONOS DEBEN DE ESTAR ORDENADAS EN SENTIDO DE LAS AGUJAS DEL RELOJ.








Public Function IdxProvincia(x as double, y as double)

'la x y la y son las coordenadas del ratón sobre el objeto picture

dim i as integer
dim p as integer
dim IN as boolean


for i=1 to total provincias
IN=true
for p=1 to mymap(i).items -1
'verificar si el cursor se encuentra siempre
'a la derecha de todos los segmentos del polígono
if disr(mymap(i).contorno(p).x,mymap(i).contorno(p).y,mymap(i).contorno(p+1).x,mymap(i).contorno(p+1).y, x, y) < 0 then IN=FALSE
next p
if IN=true then IdxProvincia=i:exit function
next i
'El cursor no está dentro de ningún contorno
idxProvincia=0
end function

'=================================================================
'ESTA FUNCION CALCULA LA DISTANCIA DE UN PUNTO A UNA RECTA DADA
'===================================================================
Private Function Disr(x1 As Double, y1 As Double, x2 As Double, y2 As Double, XP As Double, YP As Double) As Double

    'Variables temporales
    Dim Ap As Double
    Dim a As Double
    Dim b As Double
    Dim c As Double
   
    On Error Resume Next
   
    'Calcular los parámetros de la ecuación
    'de la recta enviada.
    Ap = (y1 - y2)
    a = -Ap
    b = (x1 - x2)
    c = -((y1 * b) - (x1 * Ap))

    'Calcular la distancia del punto a la recta
    If Sqr((a ^ 2) + (b ^ 2)) = 0 Then
        Disr = 0
    Else
        Disr = ((a * XP) + (b * YP) + c) / Sqr((a ^ 2) + (b ^ 2))
    End If

End Function

Para hacer un programa de instalacion debes de disponer de un programa especifico para generar aplicaciones de instalación y éste te registrara todos los componentes que necesite el proyecto.

Vb 6.0 trae una herramienta para generar paquetes de instalación (Distribución o deploy lo llaman ellos), el problema es que en sólo funciona hasta Windows 98 y en Windows 200, Me y Xp se hace un pequeño lio y no acaba bien la instalación.

Mi consejo es que te bajes el programa de distribución de Windows Msi de la página de microsoft ( busca por Visual Studio Installer en la sección de Downloads). Es gratuíto y funciona aceptablemente bien aunque es muy limitado en las instalaciones.

Si quieres algo más potente deberás ir a productos como Install Shield. Yo utilizo SETUP FACTORY de Indigo Rose y estoy encantado con los resultados, lo malo de estas aplicaciones es que son de pago y cuestan en torno a los 300 US $ (de ahi en adelante).

Espero haber sido de ayuda.

-Un saludo-

Tienes varias opciones.

Si tienes dos tablas inserta dos controles ADO en el formulario.

A cada uno le asignas la base de datos y recordset que le corresponda.

inserta en el formlario los campos necesarios de una y otra tabla sin olvidar aquellos campos que establecen la relación (los puedes ocultar si lo deseas).

Cuando pidas un registro nuevo en la tabla 'A' deberás sincronizar el segundo mediante una sentencia SELECT * FROM (tablaB) WHERE <idtablaB>=<idtablaA>

Ya tienes en el segundo ADO el/los registros relacionados.

Es responsabilidad tuya actualizar los valores de campos comunes ya que VB no lo va a hacer por tí.

Otra opción pero un poco más extensa es utilizar la directiva SHAPE, pero es algo más largo de explicar.

Si tienes VB6 te recomiendo que con el asistente de formularios generes un formulario Maestro-Detalle (Utiliza SHAPE) y así podrás estudir el código generado en profundidad.

-Un saludo-

Tengo la sensación de que lo que deseas realizar es un gráfico dibujando las lineas, círculos etc... por tu cuenta, es decir, no cargas una imagen raster.

Para visualizar todo debes de calcular primero las coordenadas mínimas y máximas de los datos a representar (Más si lo deseas añades un margen).

Antes de dibujar sobre el picture haz lo siguiente.

pictobj.scale(minx,maxy)-(maxx,miny)

despues dibuja y te saldrá todo..

NOTA: Por defecto en el picture las ordenadas crecen de arriba abajo por esta razón te he puesto en el escalado las coordenadas al revés...

-Un saludo-

De nada, para eso estamos.

-Un saludo-

Debes de escribir el siguiente código (o algo parecido).

public function ExistTable(Nombretabla as string, dbname as string) as boolean

dim db as dao.database
dim tb as tabledef

on local error <aqui lo que desees para capturar errores>

'se supone que dbname lleva la ruta completa <path+fichero.mdb>
set db=worspaces(0).opendatabase(dbname)

for each tb in db.tabledefs
if lcase(trim(tb.name))=lcase(trim(nombretable)) then
existtable = true:exit function
next tb

'el nombre de la tabla no se ha encontrado en la colección Tabledefs de la base de datos.
existtable=false

end function


espero que te resulte útil (ya me lo dirás)

Un saludo -acalanto-

Este elemplo casado de MSDN te puede aclarar alguinos conceptos.

Sub CreateDatabaseX()

   Dim wrkDefault As Workspace
   Dim dbsNew As DATABASE
   Dim prpLoop As Property

   ' Get default Workspace.
   Set wrkDefault = DBEngine.Workspaces(0)

   ' Make sure there isn't already a file with the name of
   ' the new database.
   If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"

   ' Create a new encrypted database with the specified
   ' collating order.
   Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
      dbLangGeneral, dbEncrypt)

   With dbsNew
      Debug.Print "Properties of " & .Name
      ' Enumerate the Properties collection of the new
      ' Database object.
      For Each prpLoop In .Properties
         If prpLoop <> "" Then Debug.Print "  " & _
            prpLoop.Name & " = " & prpLoop
      Next prpLoop
   End With

   dbsNew.Close

End Sub


Consulta en MSDN <CreateDataBase>;<TableDefs>;<Fields>;<Indexes>;<Relations>

Un saludo

No estoy de acuerdo con la respuesta anterior. El Flexigrid lo que no te acepta de forma automática es órdenes desde el teclado, pero puedes variar los valores de cada celda mediab¡nte FlexObject.Textmatrix(row,col)=texto.

Esta propiedad en conjunto con los eventos Keydown y Keypress te permiten que el usuario pueda introducir datos.

Si lo programas muy bien puedes controlar que la celda sólo acepte los datos a los que está destinada (Número con o sin decimales, fecha etc etc..)

Un saludo.

Deberías de establecer la propiedad MatchEntry con el valor 1 que corresponde a dblExtendedMatching.

Con esto cuando el usuario vaya tecleando el objeto mostrará el registro más próximo a la cadena introducida.

Estefanía: MySql se deja manejar por cualquier entorno que soporte ODBC...

Necesitarás descargarte el driver para Windows en la página oficial de MySql.

El tema es lo suficientemente amplio como para no poder responder en unas pocas líneas por lo que te aconsejo que mires todos los ejemplos que hay en la siguiente dirección.

http://espasoft.kaos.es/2000VB/MySql.htm

Un saludo.

Si quereis tener un absoluto control sobre Discos, ficheros, carpetas etc... os aconsejo utilizar el objeto FileSystemObject, con el que además podeís desarrollar macros con ScriptControl (Sólo VB6).

Una referencia completísima la encontraís en:

http://www.html.dk/dokumentation/vbscri ... system.htm

Un saludo.

Prueba esto


EN UN MODULO

Option Explicit


Public Type fut
    a As Integer
    b As String
End Type

Public t As fut
Dim ft As fut

Public Function GetMe() As fut
    ft.a = 25
    ft.b = "Esta cadena pasa por la fucion"
    GetMe = ft
End Function



EN UN FORMULARIO

Option Explicit


Private Sub Form_Load()
    On Error Resume Next
    t = GetMe()
End Sub


De todas maneras te dire que como sera obligatorio que lo declares comoo un elemento público, no tiene demasiado sentido que la función devuelva el contenido del tipo definido por usuario (Al ser público puedes tratarlo directamente en la variable pública que apunta a esa estructura de datos.

Espero que te sea útil
Un saludo.