Visual Basic - Ayuda por favor

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda por favor

Publicado por Maria1990 (7 intervenciones) el 01/04/2014 19:45:11
Hola buenas,

Tengo que hacer una lista de favoritos con las siguientes condiciones en VB6, pero no se como introducir algunas de las funciones.

Las instrucciones son las siguientes:



Como vemos en el grupo de combobox tenemos la lista de favoritos.

Ahora bien, nos pide que si escribimos una pagina web en la primera barra del buscador y pulsamos el boton "Add", nos salga un cuadro de dialogo, diciendo:
"Guardar como favorito, introduce una descripcion" y los botones "Ok" y "Cancel": (Ejemplo de descripción [url]www.google.es;[/url] Descripcion: "google")

-"Ok" para guardar la descripción y el enlace web asociado a esa descripcion en un array(Con orden de tiempo).
-"Cancel" para cerrar el cuadro de dialogo y no hacer nada.

El objetivo de esto, es que en la barra desplegable dentro del combobox salgan las descripciones de los favoritos que vas añadiendo por orden de tiempo (El maximo de favoritos acumulables en la barra desplegable son 100).

*Este orden de tiempo viene con la siguientes reglas:
En La barra de lectura "Last accessed", mostrará la fecha del favorito seleccionado en la barra desplegable, y lo hará de la siguiente manera:

-Si t< (1dia) "Texto1"
-Si t= (1dia) "Texto2"
-Si 1<t<366 (Dias) "Texto3"
-Si t>365 (Dias) "Texto4"

Ahora bien, todas las nuevas entradas, deberían ser actualizadas en el array, y reordenarse por fecha de ultima entrada.

Por ultimo, el boton "save" guardara esta lista de favoritos, con la siguiente informacion (URL,Descripcion de favoritos,los dias), en un archivo .txt.
Al volverse a ejecutar el programa, deberá aparecer un cuadro de dialogo que pregunte "Cargar favoritos"(Si, NO).

-"Si" poderse abrir y cargar la lista de favoritos de nuevo en el combobox.
-"No" Se cierra el cuadro de dialogo y todo en blanco.


No soy experta en visual basic y necesito ayuda :(
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Impresoras
- Tijeras
- Graficos Estadisticos

Ayuda por favor

Publicado por Diego (9 intervenciones) el 01/04/2014 23:56:52
Hola Maria.
Si no eres experta como dices, nunca vas a hacer lo que intentas explicar a menos que alguien te lo dé hecho. Creo que la función del foro es ayudar, pero no pedir que te hagan trabajos completos que tu no tienes ni idea de como realizar.
A mi me gustaría ayudarte, al menos dándote alguna idea, pero ni siquiera entiendo lo que quieres hacer.
Enséñanos lo que tienes y a ver si entre todos podemos echarte un cable.

Ah! el gráfico no ayuda porque solo es una miniatura que no se puede ampliar.


Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda por favor

Publicado por Maria (7 intervenciones) el 02/04/2014 19:07:40
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Public Class Browser
 
    Private Sub BtnGo_Click(sender As Object, e As EventArgs) Handles BtnGo.Click
        'Go to Website
        On Error Resume Next
        If TextURL.Text <> "" Then
            Call WbBrowser.Navigate(TextURL.Text)
        End If
    End Sub
 
    Private Sub TextURL_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextURL.KeyPress
        '"Enter" Pressed go to Website
        Dim keyAscii As Char
 
        keyAscii = e.KeyChar
        If (keyAscii = vbCr) Then
            If TextURL.Text <> "" Then
                Call WbBrowser.Navigate(TextURL.Text)
            End If
        End If
    End Sub
 
    Private Sub WbBrowser_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WbBrowser.DocumentCompleted
        'Display Website URL
        Dim URLAddress As String
 
        URLAddress = WbBrowser.Url.AbsoluteUri
        TextURL.Text = URLAddress
    End Sub
 
    Private Sub BtnBack_Click(sender As Object, e As EventArgs) Handles BtnBack.Click
        'Configure button Back
 
        If (WbBrowser.CanGoBack = True) Then
            WbBrowser.GoBack()
        End If
    End Sub
 
    Private Sub BtnForward_Click(sender As Object, e As EventArgs) Handles BtnForward.Click
        'Configure button Forward
 
        If (WbBrowser.CanGoForward = True) Then
            WbBrowser.GoForward()
        End If
    End Sub
 
    Private Sub BtnHome_Click(sender As Object, e As EventArgs) Handles BtnHome.Click
        'Configure button Home
 
        WbBrowser.GoHome()
    End Sub
 
    Private Sub BtnRefresh_Click(sender As Object, e As EventArgs) Handles BtnRefresh.Click
        'Configure button Refresh
 
        WbBrowser.Refresh()
    End Sub
 
    Private Sub Browser_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        'Resize the view window
 
        Dim BorderIndent As Integer
 
        On Error Resume Next
        'Resize WebPage window, buttons and textboxs
        BorderIndent = WbBrowser.Location.X
        TextURL.Width = BtnGo.Location.X - BorderIndent * 2
        CbFavourites.Width = BtnAdd.Location.X - BorderIndent * 2 - 205
        GbFavourites.Width = TextURL.Width - 181
        TextLastAccessed.Width = BtnAdd.Location.X - BorderIndent * 2 - 309
    End Sub
 
    'Array favourites websites
    <Serializable> Structure FavouriteData
        Dim ShoAddress As String
 
        'Subrutine to create a favourite list
        Public Sub New(ByVal NameAddress As String)
            ShoAddress = NameAddress
        End Sub
    End Structure
 
    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
        'Add Favourites Web Site to list
 
        'Local Variables
        Dim ShortAddress As String
        Dim ComboIndex As Integer
 
        ShortAddress = InputBox("Enter a Short Description of the Favourite Web Site", "Short Description")
        If ShortAddress = "" Then GoTo CancelEntry
 
        'Add Favourites to ComboBox and Short Description
        CbFavourites.BeginUpdate()
        CbFavourites.Items.Add(ShortAddress)
        CbFavourites = ShortAddress
        CbFavourites.EndUpdate()
        ComboIndex() = CbFavourites.SelectIndex
 
        ShortAddressInfo(ComboIndex) = New FavouriteData(ShortAddress)
 
CancelEntry:
    End Sub
 
        Private Sub CbFavourites_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CbFavourites.SelectedIndexChanged
 
            Dim IndexValue As Integer
 
            IndexValue = CbFavourites.SelectedIndex
        End Sub
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar