• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

AriOps

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

18 mensagens neste tópico

... e agora cheguei a uma parte em que percebi que o livro que comprei é uma bela porcaria...

LOLLLLLLLLLL

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vá agora acho k vou ter de esperar pelo perdido_e_sozinho a ver se ele me ajuda nisto....

:shock: parece-me que sim! :?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

bem agora só a parte do load é k não percebi.

Private Sub CarregarOPT()



			
		
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Envia-me o Source do Programa para o meu email e eu vejo o que se passa, isto claro se não te importares.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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... :?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

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