Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

AriOps

[VB.NET] Opções em Vb.Net

Mensagens Recomendadas

David Pintassilgo    5
David Pintassilgo
vá agora acho k vou ter de esperar pelo perdido_e_sozinho a ver se ele me ajuda nisto....

:shock: parece-me que sim! :?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
perdido_e_sozinho    0
perdido_e_sozinho

Em relação a livros para VB.NET:

(Inglês)

- 101 Microsoft Visual Basic .NET Applications (Microsoft Press) - Exemplos práticos de como funcionam as aplicações VB.NET - 565 Páginas

- Microsoft Programming Windows With Visual Basic .NET (Microsoft Press) - Tudo sobre os controlos base do Visual Basic, como os usar e alterar - 1300 Páginas

- Visual Basic.Net Developer's Handbook (Sybex) - É útil para quem programa em bases de dados e asp.net com vb.net - 980 páginas

(Português)

- Visual Basic .net Programação Prática (FCA) - Foi o meu primeiro livro de Visual Basic .NET, é útil quando já se sabe a base de Visual Basic

Em relação ao código, e acho que percebi o objectivo.

Acho que deves guardar todas as opções num ficheiro único (cor+calendario+actualizações)

Deves copiar a imagem de fundo para a pasta do programa, facilitando assim o carregamento e evitando que se a imagem for movida, esta se perca.

Para o código seguinte é necessário colocares Imports System.IO no início da form.

Usei como controlos 1 picturebox (picImagem), 2 botoes (btnImagem, btnColor), uma label (lblColor), 2 Checkbox (chkCalendario,chkActualizacoes), 1 ColorDialog (cdlgCor) e 1 OpenDialog(odlgImagem)

Na opção filter da OpenDialog coloquei Jpg|*.jpg|Bitmap|*.bmp|PNG|*.png|Gif|*.gif

Código

Dim Pasta As String = Path.GetDirectoryName(Application.ExecutablePath)

Form1_Load
Try

		Me.picImagem.Image = Image.FromFile(Pasta & "\fundo")

	Catch ex As Exception

	End Try

	Try

		CarregarOPT()

	Catch ex As Exception

	End Try

btnColor_Click
Me.cdlgCor.Color = Me.lblCor.BackColor

	If Me.cdlgCor.ShowDialog = DialogResult.OK Then

		Me.lblCor.BackColor = Me.cdlgCor.Color

	End If

btnImagem_Click
If odlgImagem.ShowDialog = DialogResult.OK Then

		If File.Exists(odlgImagem.FileName) = True Then

			File.Copy(odlgImagem.FileName, Pasta & "\fundo", True)
			Me.picImagem.Image = Image.FromFile(Pasta & "\fundo")

		End If

	End If

Form1_Closing
GuardarOPT()

Subs a Adicionar
Private Sub CarregarOPT()

	Dim Leitor As New StreamReader(Pasta & "\opcoes")

	Dim Rcor, Gcor, Bcor As Integer

	Rcor = (Convert.ToInt64(Leitor.ReadLine()))
	Gcor = (Convert.ToInt64(Leitor.ReadLine()))
	Bcor = (Convert.ToInt64(Leitor.ReadLine()))
	Me.lblCor.BackColor = Color.FromArgb(Rcor, Gcor, Bcor)
	Me.chkActualizacoes.Checked = Convert.ToBoolean(Leitor.ReadLine())
	Me.chkCalendario.Checked = Convert.ToBoolean(Leitor.ReadLine())

	Leitor.Close()

	Rcor = Nothing
	Gcor = Nothing
	Bcor = Nothing

End Sub

Private Sub GuardarOPT()

	Dim Gravador As New StreamWriter(Pasta & "\opcoes")

	Gravador.WriteLine(Me.lblCor.BackColor.R)
	Gravador.WriteLine(Me.lblCor.BackColor.G)
	Gravador.WriteLine(Me.lblCor.BackColor.B)
	Gravador.WriteLine(Me.chkActualizacoes.Checked.ToString)
	Gravador.WriteLine(Me.chkCalendario.Checked.ToString)

	Gravador.Close()

End Sub

Este código guarda as opções quando a form é fechada.

Para fazeres o load para os teus objectos basta copiares o Sub CarregarOPT para a form principal e alterares os as propriedades dos objectos.

Se tiveres mais alguma dúvida ou o código não fizer algo que queiras diz que pode ser que te consiga ajudar. :)

Com os melhores cumprimentos,

Sérgio Matias

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
perdido_e_sozinho    0
perdido_e_sozinho

Coloca isto num modulo

Structure StrOpcoes

       Dim Cor As Color
       Dim MostrarCalendario As Boolean
       Dim VerificarActualizacoes As Boolean

   End Structure

   Public Opcoes As New StrOpcoes
   Public Pasta As String = Path.GetDirectoryName(Application.ExecutablePath)

Para colocar no load da Form

'== controlo de Erros 
       Try

           '== Isto carrega a imagem
           Me.Panel1.BackgroundImage = Image.FromFile(Pasta & "\fundo")

           '== controlo de Erros 
       Catch ex As Exception

       End Try

       '== carrega as definicoes ==
       CarregarOPT()

       '== Verifica se mostra o calendário
       If Opcoes.MostrarCalendario = False Then

           '== Oculta o Calendário
           MonthCalendar1.Visible = False

       End If

       '== Verifica se verifica actualizações
       If Opcoes.VerificarActualizacoes = False Then

           '== Aqui fica o código da verificação


       End If

Novo Sub Carregar (colocar só na form Principal na form Opcoes continua o Anterior)

    Private Sub CarregarOPT()

       '== Cria um leitor de texto ==
       Dim Leitor As New StreamReader(Pasta & "\opcoes")

       '== Define as variáveis das cores ==
       Dim Rcor, Gcor, Bcor As Integer

       '== Obtem o vermelho
       Rcor = (Convert.ToInt64(Leitor.ReadLine()))
       '== Obtem o Verde
       Gcor = (Convert.ToInt64(Leitor.ReadLine()))
       '== Obtem o Azul
       Bcor = (Convert.ToInt64(Leitor.ReadLine()))

       '== Carregar a Cor juntado os valores do Vermelho(R), Verde(G) e Azul(B)
       Opcoes.Cor = Color.FromArgb(Rcor, Gcor, Bcor)
       '== Carrega se procura por actualizacoes
       Opcoes.VerificarActualizacoes = Convert.ToBoolean(Leitor.ReadLine())
       '== carrega se mostra calendário
       Opcoes.MostrarCalendario = Convert.ToBoolean(Leitor.ReadLine())

       '== Fecha o Leitor 
       Leitor.Close()

       '== Limpar as variáveis 
       Rcor = Nothing
       Gcor = Nothing
       Bcor = Nothing

   End Sub

Como ainda uso o VB.NET 2003, e só vou usar o 2005 quando este sair em outubro ainda não como se faz o check update. Se quizeres posso te dar uma alternativa que pode funcionar nos dois.

Qq dúvida basta colocares

Com os melhores cumprimentos,

Sérgio Matias

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
AriOps

desculpa lá tar sempre a chatear-te mas...

'== Carregar a Cor juntado os valores do Vermelho(R), Verde(G) e Azul(B)
       opcoes.Cor = Color.FromArgb(Rcor, Gcor, Bcor)
       '== Carrega se procura por actualizacoes
       opcoes.VerificarActualizacoes = Convert.ToBoolean(Leitor.ReadLine())
       '== carrega se mostra calendário
       opcoes.MostrarCalendario = Convert.ToBoolean(Leitor.ReadLine())

O vb.net diz-me que opcoes.Cor, opcoes.MostrarCalendario, etc não fazem parte do AriCalc.opcoes.... tive a ver o módulo e parece-me tudo bem, não percebo o erro do vb

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
AriOps

tipo eu declarei as variáveis, mas isto... ou é da hora da manhã ou é do pc... aposto mais na primeira... :oops:

disseste k eu tinha de declarar o opcoes.(variavel)

Tipo isto...

Dim opcoes.Cor As String

mas para todos certo?

mas supostamente devia dar... mas diz-me "End of Statement Expected" ou uma coisa parecia, porque o programa crashou memo agora...

Já agora, quando eu faço um Imports System.IO nunca consigo compilar por causa de um erro no Windows.Form ou lá o k é. Alguém sabe como posso resolver isto?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
perdido_e_sozinho    0
perdido_e_sozinho

O que eu queria dizer era para colocares nas variaveis opcoes.opcoes.cor, uma vez que tens de dizer no VB.NET 2005 qual é a class onde está alojada a variável.

Em relação ao problema com o system.io, vai a My Project, separador References, em baixo em Imported Name Spaces selecciona system.io. Penso que isto permitirá que a aplicação seja compilada correctamente.

O facto é que consegui compilar a versão que me enviaste após ter feito as correções :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
AriOps

pronto está tudo, apenas falta escrever o ficheiro com as configuracoes pre-definidas. Vê se o formato é assim:

lblCor.BackColor.R) = " "
lblCor.BackColor.G) = " "
lblCor.BackColor.B) = " "
chkActualizacoes.Checked.ToString) = " " 
chkCalendario.Checked.ToString) = " "

o ficheiro fica só opcoes não é? ficando assim do tipo "Ficheiro".

E fica também na pasta do programa, ou seja tenho de inserir depois no installer.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
perdido_e_sozinho    0
perdido_e_sozinho

Não precisas de colocar nada ficheiro.

O ficheiro é criado pela tua form de opções.

se quizeres editar o ficheiro manualmente basta colocares

255
255
255
True
True

Para a imagem basta copiares uma uma imagem e chamar-lhes fundo

Com os melhores cumprimentos,

Sérgio Matias

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
AriOps

isto é para continuar depois do kisc... aquela cena de limpar as imagens para dar para substituir a imagem de fundo não funciona... (tirei a do fundo e a pic das opções)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
AriOps

bem como não funciona vou meter aqui o código completo da form "form1" (inicio) e da form "Options":

Options.vb

Imports System.IO
Public Class Options
   Dim Pasta As String = Path.GetDirectoryName(Application.ExecutablePath)
   Private Sub CarregarOPT()

       Dim Leitor As New StreamReader(Pasta & "\opcoes")

       Dim Rcor, Gcor, Bcor As Integer

       Rcor = (Convert.ToInt64(Leitor.ReadLine()))
       Gcor = (Convert.ToInt64(Leitor.ReadLine()))
       Bcor = (Convert.ToInt64(Leitor.ReadLine()))
       Me.lblCor.BackColor = Color.FromArgb(Rcor, Gcor, Bcor)
       Me.chkActualizacoes.Checked = Convert.ToBoolean(Leitor.ReadLine())
       Me.chkCalendario.Checked = Convert.ToBoolean(Leitor.ReadLine())

       Leitor.Close()

       Rcor = Nothing
       Gcor = Nothing
       Bcor = Nothing

   End Sub

   Private Sub GuardarOPT()

       Dim Gravador As New StreamWriter(Pasta & "\opcoes")

       Gravador.WriteLine(Me.lblCor.BackColor.R)
       Gravador.WriteLine(Me.lblCor.BackColor.G)
       Gravador.WriteLine(Me.lblCor.BackColor.B)
       Gravador.WriteLine(Me.chkActualizacoes.Checked.ToString)
       Gravador.WriteLine(Me.chkCalendario.Checked.ToString)

       Gravador.Close()

   End Sub
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFechar.Click
       Me.Close()
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFechar2.Click
       Me.Close()
   End Sub

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

   End Sub

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

   End Sub

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

           Me.picImagem.Image = Image.FromFile(Pasta & "\fundo")

       Catch ex As Exception

       End Try

       Try

           CarregarOPT()

       Catch ex As Exception

       End Try

   End Sub

   Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColor.Click
       Me.cdlgCor.Color = Me.lblCor.BackColor

       If Me.cdlgCor.ShowDialog = DialogResult.OK Then

           Me.lblCor.BackColor = Me.cdlgCor.Color

       End If
   End Sub

   Private Sub btnImagem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImagem.Click
       Me.picImagem.Image = Image.FromFile(Pasta & "/fundo0")
       If odlgImagem.ShowDialog = DialogResult.OK Then
           If File.Exists(odlgImagem.FileName) = True Then File.Copy(odlgImagem.FileName, Pasta & "\fundo", True)
       End If
       Me.picImagem.Image = Image.FromFile(Pasta & "/fundo")
   End Sub

   Private Sub Options_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
       GuardarOPT()
   End Sub

   Private Sub Options_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

   End Sub
End Class

Form1.vb

Imports System.IO
Public Class AriCalc
   Dim Pasta As String = Path.GetDirectoryName(Application.ExecutablePath)

   Public Sub CarregarOPT()

       '== Cria um leitor de texto ==
       Dim Leitor As New StreamReader(Pasta & "\opcoes")

       '== Define as variáveis das cores ==
       Dim Rcor, Gcor, Bcor As Integer


       '== Obtem o vermelho
       Rcor = (Convert.ToInt64(Leitor.ReadLine()))
       '== Obtem o Verde
       Gcor = (Convert.ToInt64(Leitor.ReadLine()))
       '== Obtem o Azul
       Bcor = (Convert.ToInt64(Leitor.ReadLine()))

       '== Carregar a Cor juntado os valores do Vermelho(R), Verde(G) e Azul(B)
       opcoes.Opcoes.Cor = Color.FromArgb(Rcor, Gcor, Bcor)
       '== Carrega se procura por actualizacoes
       opcoes.Opcoes.VerificarActualizacoes = Convert.ToBoolean(Leitor.ReadLine())
       '== carrega se mostra calendário
       opcoes.Opcoes.MostrarCalendario = Convert.ToBoolean(Leitor.ReadLine())

       '== Fecha o Leitor
       Leitor.Close()

       '== Limpar as variáveis
       Rcor = Nothing
       Gcor = Nothing
       Bcor = Nothing

   End Sub
   Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Estado.Click

   End Sub

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

   End Sub

   Private Sub cmdLimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLimpar.Click
       'Comando para limpar as caixas de texto da AriCalc
       txtOperando1.Text() = " "
       txtOperando2.Text() = " "
       txtResultado.Text() = " "
       SaveMemory()
   End Sub

   Private Sub cmdSoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSoma.Click
       'Procedimento de Soma do Op1 com o Op2 em que o resultante será apresentado no txtResultado
       txtResultado.Text() = Val(txtOperando1.Text) + Val(txtOperando2.Text)
       SaveMemory()
   End Sub

   Private Sub cmdDim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDim.Click
       'Procedimento de Diminuição do Op1 com o Op2 em que o resultante será apresentado no txtResultado
       txtResultado.Text() = Val(txtOperando1.Text) - Val(txtOperando2.Text)
       SaveMemory()
   End Sub

   Private Sub cmdMulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMulti.Click
       'Procedimento de Multiplicação do Op1 com o Op2 em que o resultante será apresentado no txtResultado
       txtResultado.Text() = Val(txtOperando1.Text) * Val(txtOperando2.Text)
       SaveMemory()
   End Sub

   Private Sub cmdDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDiv.Click
       'Procedimento de Divisão do Op1 com o Op2 em que o resultante será apresentado no txtResultado
       txtResultado.Text() = Val(txtOperando1.Text) / Val(txtOperando2.Text)
       SaveMemory()
   End Sub

   Private Sub ToolStripProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       'Barra Visual de Estatistica da Acção da Aplicação
   End Sub

   Private Sub FunçõesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FunçõesToolStripMenuItem.Click

   End Sub

   Private Sub LimparToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimparToolStripMenuItem.Click
       'Comando Limpar na Barra Principal
       txtOperando1.Text() = " "
       txtOperando2.Text() = " "
       txtResultado.Text() = " "
       SaveMemory()
   End Sub

   Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
       End
   End Sub

   Private Sub WebsiteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       'Link para a página do programa p/ actualizações
   End Sub

   Private Sub CentrodeSuporteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CentrodeSuporteToolStripMenuItem.Click
       'Link para o centro de suporte
   End Sub

   Private Sub AriCalcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AriCalcToolStripMenuItem.Click
       'Link para a AboutBox1.vb
       AboutBox1.Show()
       SaveMemory()
   End Sub

   Private Sub OpçõesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpçõesToolStripMenuItem.Click

       'Abrir Opções
       Me.BackgroundImage = Image.FromFile(Pasta & "/fundo0")
       Options.ShowDialog()
       'Poupar Memória RAM
       SaveMemory()

       CarregarOPT()

       Panel1.BackColor = opcoes.Opcoes.Cor

       If opcoes.Opcoes.MostrarCalendario = False Then

           MonthCalendar1.Visible = False

       End If

   End Sub

   Private Sub SobreoAriCalcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SobreoAriCalcToolStripMenuItem.Click
       AboutBox1.Show()
       SaveMemory()
   End Sub

   Private Sub AriSoftToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AriSoftToolStripMenuItem.Click
       AriTI.Show()
       SaveMemory()
   End Sub

   Private Sub LimparToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimparToolStripMenuItem1.Click
       txtResultado.Text() = " "
       txtOperando1.Text() = " "
       txtOperando2.Text() = " "
       SaveMemory()
   End Sub

   Private Sub FecharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FecharToolStripMenuItem.Click
       End
   End Sub

   Private Sub SobreaAriSoftToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SobreaAriSoftToolStripMenuItem.Click
       AriTI.Show()
       SaveMemory()
   End Sub

   Private Sub OpçõesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpçõesToolStripMenuItem1.Click
       'Abrir Opções
       Me.BackgroundImage = Nothing
       Options.ShowDialog()
       'Poupar Memória RAM
       SaveMemory()
       'Load da Imagem
       Me.BackgroundImage = Image.FromFile(Pasta & "\fundo")
       'Load da Cor de Fundo do Panel
       CarregarOPT()

       Panel1.BackColor = opcoes.Opcoes.Cor
       'Load do Calendário
       If opcoes.Opcoes.MostrarCalendario = False Then
           'Se não estiver selecionado, não mostra...
           MonthCalendar1.Visible = False

       End If
   End Sub

   Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActualizarToolStripMenuItem.Click
       Actualizar.Show()
       SaveMemory()
   End Sub

   Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

   End Sub

   Public Sub TestProgressBar()
       ' Do a loop to simulate a lengthy task and make the progress bar
       ' show progress to its maximum value.
       While (ToolStripProgressBar.Value < ToolStripProgressBar.Maximum)
           System.Threading.Thread.Sleep(10)
           ToolStripProgressBar.Value += 1
       End While

       ' Reset the progress bar.
       ToolStripProgressBar.Value = ToolStripProgressBar.Minimum
       SaveMemory()
   End Sub

   Private Sub TestarBarradeActividadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestarBarradeActividadeToolStripMenuItem.Click
       TestProgressBar()
       SaveMemory()
   End Sub

   Private Sub TestarCalculadoraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestarCalculadoraToolStripMenuItem.Click
       txtOperando1.Text = "1"
       txtOperando2.Text = "1"
       txtResultado.Text = "2"
       MsgBox("Soma Ok")
       txtResultado.Text = "1"
       MsgBox("Multiplicação Ok")
       txtResultado.Text = "0"
       MsgBox("Diminuição Ok")
       txtOperando1.Text = "100"
       txtOperando2.Text = "2"
       txtResultado.Text = "50"
       MsgBox("Divisão Ok")
       txtResultado.Text = ""
       txtOperando1.Text = ""
       txtOperando2.Text = ""
       MsgBox("Teste Concluído Com Sucesso!")
       SaveMemory()
   End Sub

   Private Sub AriCalc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       '== controlo de Erros
       Try

           '== Isto carrega a imagem
           Me.BackgroundImage = Image.FromFile(Pasta & "\fundo")

           '== controlo de Erros
       Catch ex As Exception

       End Try

       '== carrega as definicoes ==
       CarregarOPT()

       Panel1.BackColor = opcoes.Opcoes.Cor

       '== Verifica se mostra o calendário
       If opcoes.Opcoes.MostrarCalendario = False Then

           '== Oculta o Calendário
           MonthCalendar1.Visible = False

       End If

       '== Verifica se verifica actualizações
       If opcoes.Opcoes.VerificarActualizacoes = True Then If My.Application.IsNetworkDeployed() AndAlso My.Application.Deployment.CheckForUpdate() Then MsgBox("Update is available for download") 

   End Sub

Há mais código na Form1, mas já não tinha nada a ver com isto.

O problema é com a substituição do ficheiro (fundo), que se encontra na pasta do programa.

 Pasta & "/fundo" 

o fundo0 é uma imagem em branco que tentei usar em vez do Nothing.

 Pasta & "/fundo0" 

não tou a ver onde é k isto falha, já substitui todas os requerentes desta imagem por uma imagem em branco mas memo assim isto não substitui...

Cumps

EDIT: Peço desculpa pelo tamanho do post... :?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
AriOps    0
AriOps

Outra dúvida, se puderem ajudar...

tou a fazer umas fórmulas para a calculadora. mas o programa arredonda sempre o resultado, ou seja, 0,68 aparece como 1. Como faço isto aparecer mesmo 0.68?

        Dim a, b, c, d, x1, x2 As Long
       a = InputBox("Insira o Valor de A")
       b = InputBox("Insira o Valor de B")
       c = InputBox("Insira o Valor de C")
       d = b ^ 2 - 4 * (a * c)
       If d < 0 Then
           MsgBox("Impossível", MsgBoxStyle.OKOnly, "Informação")
       Else
           MsgBox("Discriminante=" & " " & d, MsgBoxStyle.OKOnly, "Discriminante")
           x1 = (-b + (d ^ 1 / 2)) / (2 * a)
           MsgBox("Valor X1=" & " " & x1, MsgBoxStyle.OKOnly, "Resultado")
           x2 = (-b - (d ^ 1 / 2)) / (2 * a)
           MsgBox("Valor X2=" & " " & x2, MsgBoxStyle.OKOnly, "Resultado")
       End If

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbmaster    5
vbmaster

Assim, assim.

faz de conta que tenhos três textBox's e um command button para somar.

CommandButton1_Click()

TextBox3.Text = Format$((Val(Textbox1.Text) + Val(textBox2.Text)), "###.##")

Os ### podem variar consoante o que queiras........acho que compreendes essa parte. :)

EDIT: isto é vb6, mas anyway.... :roll:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade