Jump to content

Search the Community

Showing results for tags 'vb.net'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 7,636 results

  1. RafaelFranckilin

    Encriptar e decriptar app.config

    Eu tenho um programa que vai rodar direto de um pendriver Tô tentando encriptar e decriptar o app.config, mas preciso que funcione em vários computadores alguém pode me ajudar com alguma solução?
  2. Chamuanza

    Dificuldade com Array

    Um Bem Aja a todos Tenho o código que apresento a seguir e não consigo perceber qual a razão de não me aparecer na grelha a segunda leva dos números aleatórios Quando inicio o primeiro array funciona e aparece nas labels os valores, depois de limpar a grade e fazer de novo o array funciona com novos dados mas não consigo que me apareçam na grade. Agradeço ajuda. Obrigado Option Strict On Imports System.Drawing Imports System.Windows.Forms.Label Public Class Form1 Dim Numeros As Integer = 81 Dim Tab_numeros(81) As Integer Private SudokuSolution(81) As String Public Lbl_Array As Label() = New Label(81) {} ' Set the number you labels need Private Sub NovoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovoToolStripMenuItem.Click ' Demo places 9 x 9 (81) lables on form Dim CNT As Integer Dim X As Integer Dim Y As Integer Dim H As Integer Dim W As Integer Dim r, c As Integer Y = Lbl_Master.Location.Y H = Lbl_Master.Height W = Lbl_Master.Width CNT = 1 For c = 1 To 9 X = Lbl_Master.Location.X For r = 1 To 9 Lbl_Array(CNT) = New Label Lbl_Array(CNT).Location = New System.Drawing.Point(X, Y) Lbl_Array(CNT).Size = New System.Drawing.Size(W, H) Lbl_Array(CNT).AutoSize = Lbl_Master.AutoSize Lbl_Array(CNT).BackColor = Lbl_Master.BackColor Lbl_Array(CNT).BorderStyle = Lbl_Master.BorderStyle Lbl_Array(CNT).TextAlign = Lbl_Master.TextAlign Lbl_Array(CNT).ForeColor = Lbl_Master.ForeColor Lbl_Array(CNT).Font = Lbl_Master.Font '******************************************************* 'Lbl_Array(CNT).Text = CStr(CNT) '***************************************************** Lbl_Array(CNT).Tag = CNT ' This is the clever bit so that we can find the index! Lbl_Array(CNT).Visible = True Lbl_Array(CNT).BringToFront() AddHandler Lbl_Array(CNT).Click, AddressOf lblArray_click Panel1.Controls.Add(Lbl_Array(CNT)) X = (X + W) + 8 ' Note 8 is your offset in X CNT += 1 Next Y = (Y + H) + 8 ' Note 8 is your offset in Y Next Call NumerosAleatorios() Call CarregarNumeros() End Sub Private Sub CarregarNumeros() For J As Integer = 1 To 81 Lbl_Array(J).Text = CStr(Tab_numeros(J - 1)) Next End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click For x As Integer = 1 To 81 Lbl_Array(x).Text = "" Next ' Array.Clear(Lbl_Array, 0, Lbl_Array.Length) End Sub Private Sub NumerosAleatorios() Dim i As Integer 'Var aux p/contador Dim Temp As Integer 'Var aux Dim flag As Boolean 'Flag de controle 'Zerar vectores For i = 0 To Numeros - 1 Tab_numeros(i) = 0 Next 'Gerar números i = 0 Do While i < Numeros Randomize() 'Baralhar Temp = CInt(Int((Rnd() * 81) + 1)) 'def um nº à sorte entre 1 e 81 'Verificar se já existe flag = False For j As Integer = 0 To Numeros - 1 If Tab_numeros(j) = Temp Then flag = True End If Next 'se não, atribuir nº e actualizar contador If flag = False Then Tab_numeros(i) = Temp i += 1 End If Loop End Sub
  3. Saudações amigos, gostaria muito de uma ajuda, Estou desenvolvendo um software de envio de email's, mais também estou fazendo com que ele receba os email's da minha base de dados, estou tentando carregar eles todos de uma só vez da datagridview para o meu textbox, mais estou com dificuldade, como apresenta a imagem abaixo: E tentei o seguinte código, mais só carrega um único email: With datalista If txtendereco.Text = "" Then If .SelectedCells.Count > 0 Then For i As Integer = .SelectedCells.Count - 1 To 0 Step -1 txtendereco.Text = datalista.SelectedCells.Item(6).Value + "," Next End If End If End With Desde Já agradeço
  4. artroc

    CTT Expresso Web Services

    Boa tarde, Alguem sabe como trabalhar com os CTT webservice expedição de encomendas através de http://cttexpressows.qa.ctt.pt/CTTEWSPool/CTTShipmentProviderWS.svc?wsdl cumprimentos, Artur
  5. electric

    Discord.net

    Viva, Estava a tentar implementar num software meu um envio de menssagens para o discord no entanto todos os tutoriais que encontrei sao xe 2017 e usam como por exemplo discord.connect(token) que nsste momento nao existe... Questao a minha alguem que tenha usado e tenha algum material com exemplo que me recomende ? Abraço e obrigado
  6. Boas Alguém já tem algum código , ou alguma ideia de como fazer a importação automática dos documentos existentes no portal do E-Fatura. Sem ser pelo ficheiro que eles lá tem da importação (e-fatura.csv), pois essa importação não separa os documentos por taxas de IVA .. Já tenho um código para fazer o login automático no site .. que é o seguinte: Try Dim IE IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.FullScreen = False IE.AddressBar = True IE.StatusBar = True IE.Toolbar = False ' IE.Width = Ambiente.Width - 200 ' IE.Height = Ambiente.Height - 200 IE.top = 100 IE.left = 100 IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Document.All("username").InnerText = "???????????" ' Nº Contribuinte IE.Document.all("password").focus() IE.Document.All("password").InnerText = "?????????????" ' Senha do Portal IE.Document.All("sbmtLogin").Click() Catch ex As Exception MsgBox("Erro: Volte a Tentar", MsgBoxStyle.Critical) End Try
  7. boas, estou a fazer um programa no qual necessito alterar os dados que seleciono atravez de um dategridview mas ao fazer o update os dados sao todos alterados e nao so os selecionados. Se alguem me conseguisse ajudar ficaria grato! Private Sub editar _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connection As New OleDbConnection Dim query As String Dim command As New OleDbCommand connection = New OleDbConnection(My.Settings.fclinicConnectionString) query = "UPDATE paciente SET [Nome Paciente]=@Nome_PacienteTextBox,[Nº Utente]=@Nº_UtenteTextBox,[Genero]=@GeneroComboBox,[Data Nascimento]=@Data_NascimentoDateTimePicker,[Morada]=@morada,[Cidade]=@cidade,[País]=@pais,[Codigo Postal]=@codpostal,[Telefone]=@telefone,=@email,[Tipo de Sangue]=@sangue,[Alergias]=@alergias" command = New OleDbCommand(query, connection) command.Parameters.Add("@Nome_PacienteTextBox", OleDbType.VarChar).Value = Nome_PacienteTextBox.Text command.Parameters.Add("@Nº_UtenteTextBox", OleDbType.VarChar).Value = Nº_UtenteTextBox.Text command.Parameters.Add("@GeneroComboBox", OleDbType.VarChar).Value = GeneroComboBox.Text command.Parameters.Add("@Data_NascimentoDateTimePicker", OleDbType.VarChar).Value = Data_NascimentoDateTimePicker.Text command.Parameters.Add("@morada", OleDbType.VarChar).Value = MoradaTextBox.Text command.Parameters.Add("@cidade", OleDbType.VarChar).Value = CidadeTextBox.Text command.Parameters.Add("@pais", OleDbType.VarChar).Value = PaísComboBox.Text command.Parameters.Add("@codpostal", OleDbType.VarChar).Value = Codigo_PostalTextBox.Text command.Parameters.Add("@telefone", OleDbType.VarChar).Value = TelefoneTextBox.Text command.Parameters.Add("@email", OleDbType.VarChar).Value = EmailTextBox.Text command.Parameters.Add("@sangue", OleDbType.VarChar).Value = Tipo_de_SangueComboBox.Text command.Parameters.Add("@alergias", OleDbType.VarChar).Value = AlergiasTextBox.Text Dim Olido As Integer connection.Open() Olido = command.ExecuteNonQuery() If (Olido < 1) Then MsgBox("Erro ao actualizar", MessageBoxButtons.OK, MessageBoxIcon.Error) Else MessageBox.Show("Os dados foram alterados com sucesso!") End If connection.Close() connection.Dispose() End Sub
  8. Camarao69

    PHC FRONT WEB

    Bom dia Estou com dificuldade na introdução das referencias seleccionadas num form para as linhas do dossier. For z = 1 To nsts 'cAddRefParas.Referencia = System.Web.HttpContext.Current.Request.Form("st_" & z.ToString()) cAddRefParas.Referencia = "xpto" cAddRefParas.Quantidade = 1
  9. electric

    Conecçao Rcon

    Bom dia a todos, Estive a procura no forum e nao encontrei nada referente a Rcon no campo de vb.net, Online existem algumas coisas mas tambem nada que me tenha realmente ajudado.. Questao a minha é a seguinte Preciso fazer uma conneccao por Rcon Tenho o ip a porta e a porta rcon Alguem me da uma luzinha de como fazer a coneccao ? Obrigado desde ja Abraço
  10. Eduarda Pinto

    Impressão de uma factura

    Boa tarde, eu estou ja na parte final do meu projeto de prova de aptidão Profissional e no meu projeto em visual basci eu necessito de fazer a impressão de uma fatura e de uma encomenda e o meu código está a dar erro na parte do RectPrint Dim snapshot As Bitmap = GetWindowImage(window, New Rectangle(Me.Location.X + 10, Me.Location.Y + 30, RectPrint.Width, RectPrint.Height)) Necessito mesmo de ajuda, pois vou fazer a terceira avaliação esta quinta-feira!!!! Obrigada pela compreensão!!!
  11. Mendes_PT

    Pesquisa entre datas

    Boa tarde, Estou a criar um desenvolvimento que permite visualizar todos os movimentos de stock da referência em uma datagridview. Ate aqui eu consegui colocar tudo a funcionar mas queria ir mais longe. Queria que quando fizesse uma pesquisa a primeira linha da datagridview me mostrasse o saldo anterior dos movimentos. Ou seja desde a primeira data dos movimentos de stock até a data inicial da pesquisa. E na ultima linha o total desde a data inicial ate a data final do filtro. Nao sei se me fiz entender espero que sim. Podem me ajudar se for possível fazer isto?
  12. Olá pessoal!!! Podem me ajudar??? Tenho um DataGridView onde ao clicar nas células de determinadas colunas retora o seu texto em uma textbox. Segue o código: Private Sub DgvCE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgvCE.CellClick Dim ColName As String = DgvCE.Columns(e.ColumnIndex).Name If ColName = "ImgEditar" Or ColName = "ImgDeletar" Or ColName = "ImgCE" Or ColName = "ImgPID" Or ColName = "ImgAP" Then TxtLeitor.Text = "" Else '---Quando o usuário clicar em uma célula do DgvCE, exibe o seu conteudo no txtLeitor TxtLeitor.Text = DgvCE.Rows(e.RowIndex).Cells(e.ColumnIndex).Value End If End Sub O problema é que quando clico no CABEÇALHO () ocorre o seguinte erro: System.ArgumentOutOfRangeException: 'O índice estava fora do intervalo. Ele deve ser não-negativo e menor que o tamanho da coleção. Arg_ParamName_Name'
  13. Chamuanza

    Aviso sobre "MSDATASRC"

    Um Bem Aja a todos Tenho uma aplicação feita por mim, para meu uso que agora quando inicio aparece este aviso. Aviso Não é possível localizar o assembly do wrapper para a biblioteca de tipos "MSDATASRC". Verifique se (1) o componente COM está registrado corretamente e (2) sua plataforma de destino é a mesma que a bitness do componente COM. Por exemplo, se o componente COM for de 32 bits, sua plataforma de destino não deverá ser de 64 bits. ChamuanzasAB42012. Qual a melhor maneira de resolver? Estou com o Windows 10 Pro 64bits e Visual Studio2015 Agradeço desde já a atenção
  14. marlonwg

    Impressao com PrintDocument

    Boas pessoal estou a usar PrintDocument para criar uma impressão so tem um porem quando a impressao passa de X linhas a impressora para de imprimir e sempre mantem no Modo A4??? ta ai abaixo um trecho do codigo que uso para definir o Papersize mas sem sucesso somente consigo quando imprimi em impressora XPS , passa normal mas se entrar nas cupom Continuo tipo bematech , elgin , etc ... a impressora corta quando alcança A4 Codigo... Dim pd As Printing.PrintDocument = New Printing.PrintDocument() Dim QtdProd As Decimal = DgvVendas.RowCount ' Quantidade linhas da venda Dim AltTotal As Decimal = QtdProd * (Tln * 2) ' divisao para saber tamanho do cupom Dim Alt As Short = 671 + AltTotal ' Soma a base + altura total 'Seleciona a Impressao tipo Cupom PapelPersonal = New PaperSize("personal", 300, Alt) ' Papel personalizado Pd.PageSettings.PaperSize = PapelPersonal ' Definiçao de papel Pd.Print()
  15. Ola amigos , estou a realizar um protejo em Visual BASIC 2017 sobre Contador Electrónico, o que é isto, é nada mais nada menos que um programa que tem 10 mesas em que se pode adicionar ou remover mesas á medida da capacidade do estabelecimento e disponibilidade , contudo eu nao sou mesmo nada perito em vb e tenho alguma dificuldade em entender mas gostava de saber se me podiam dar uma ajudinha em explicarem-me como devo de fazer e a melhor forma para que eu possa através de um outro Form clicar num botão que diz "Recolher Registo" e no qual esse botao envia-se um email para o administrador que só á um no programa e mostrar no email um anexo em acess ou excel ou word ,assim qualquer coisa como um modelo que ficasse bem bonitinho para que depois o dito administrador pudesse tirar uma cópia desse tal anexo para guardar , nao tenho código em relação a isso de enviar email e capa do anexo,apenas tenho um sistema de login e registo e o principal do programa que é a parte das mesas disponiveis e assim que um cliente comeca e acaba um jogo , gostava primeiro de entender o raciocínio de como devo fazer ,é baseado Num software que existe na net com o nome de "Contelec", baseado nisso, obrigado por alguma resposta e espero que tenha sido claro na minha duvida cumprimentos
  16. Boas sou novo nestas zonas e gostaria de saber como faço para executar um backup da minha base de dados e também para restaurar. Se alguém me poder ajudar fico imenso grato. Obrigado.
  17. gastao

    Fazer Ligação JSON

    Boa tarde, alguem sabe fazer uma ligação em JSON via API
  18. Latitude

    Projeto corrompido

    Olá, Estava a desenvolver um projeto em visual studio 2017 (visual basic) quando o pc foi abaixo. Ao entrar novamente no meu projeto os formulários mostram 0000 e 1111. No entanto ao compilar consigo compilar a última versão bem sucedida. Será possível recuperar o condigo fonte correspondente e os formulários associados?
  19. a3deluxe

    Bring Forward Window VB.Net

    Boa noite, Precisava de uma ajuda no meu código em vb.net. O meu programa é um Form com um Button, quando pressionado , trás para a frente a janela do programa VirtualBox, depois quando pressionando a tecla ESC, vem para a frente o Form novamente. A parte do código do Button está a funcionar bem, a parte da Tecla ESC é que não. Não esta a trazer o Form para a Frente. Tentei colocar o mesmo código do Button que funciona na tecla ESC, mas usando o nome da Janela do Form, só funcionou a primeira vez depois perde o Focus do Form. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Handle As IntPtr = FindWindow(Nothing, "Windows 7 - Oracle VM VirtualBox") SetForegroundWindow(Handle) TopMost = False End Sub Private Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer If nCode = HC_ACTION Then If wParam = WM_KEYDOWN Then Dim key As Integer = lParam.vkCode If key = Keys.Escape Then TopMost = True Return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam) End Function Alguém para dar uma ajudinha. Obrigado
  20. Boa tarde amigos do fórum estou a compilar um código fonte e esta a aparecer esse erro ja procurei na net mas cada um fala de uma forma diferente gostaria de saber ao certo o porque desse erro obrigado a todos ERRO : 30389 '"Sales_and_Inventory_System.frmOrdersReport.CrystalReportViewer1" não está acessível neste contexto porque é "Private". Oque esta em negrito e onde o VS 2017 acusa o erro Public Sub OrderToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderToolStripMenuItem2.Click Me.Hide() frmOrdersReport.cmbCustomerName.Text = "" frmOrdersReport.CrystalReportViewer3.ReportSource = Nothing frmOrdersReport.dtpOrderDateFrom.Text = Today frmOrdersReport.dtpOrderDateFrom.Text = Today frmOrdersReport.CrystalReportViewer1.ReportSource = Nothing frmOrdersReport.cmbStatus.Text = "" frmOrdersReport.CrystalReportViewer2.ReportSource = Nothing frmOrdersReport.Show() End Sub
  21. marioverdini

    vb.net + sql

    Boa tarde a todos Baixei um codigo fonte da internet e como sou iniciante estou estudando o codigo para afins de aprendizado entao vamos la, no cadastro de produto tem uma textbox que recebe um valor preço pelo que percebi a declaçao da variavel pelo q parece esta misturada com conecçao com o banco sql isso acontece no codigo do botao save ou update Queria saber nessa situação como faço para no campo preço ter casas decimais no entanto eu digito o preço de 1.01 e primo em salvar ou em atualizao ele aceita mas quando vou pesquisar o produto no form de pesquisa preço fica 101 No banco sql estava com o tipo de dados float eu alterei para decimal tanto no codigo como no sql nao deu certo alguem pode me ajudar? vou colocar o codigo do botao update Private Sub Update_Record_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Update_Record.Click Try con = New SqlConnection(cs) con.Open() Dim cb As String = "update product set Productname=@d2,category=@d3,Weight=@d4,price=@d5 where Productcode=@d1" cmd = New SqlCommand(cb) cmd.Connection = con cmd.Parameters.Add(New SqlParameter("@d1", System.Data.SqlDbType.NChar, 20, "productcode")) cmd.Parameters.Add(New SqlParameter("@d2", System.Data.SqlDbType.VarChar, 250, "productname")) cmd.Parameters.Add(New SqlParameter("@d3", System.Data.SqlDbType.VarChar, 150, "category")) cmd.Parameters.Add(New SqlParameter("@d4", System.Data.SqlDbType.NChar, 10, "weight")) cmd.Parameters.Add(New SqlParameter("@d5", System.Data.SqlDbType.Float, 10, "price")) cmd.Parameters("@d1").Value = txtProductCode.Text cmd.Parameters("@d2").Value = txtProductName.Text cmd.Parameters("@d3").Value = cmbCategory.Text cmd.Parameters("@d4").Value = cmbWeight.Text cmd.Parameters("@d5").Value = CDbl(txtPrice.Text) cmd.ExecuteReader() MessageBox.Show("Successfully updated", "Product Details", MessageBoxButtons.OK, MessageBoxIcon.Information) Update_Record.Enabled = False fillCategory() fillWeight() autocomplete() If con.State = ConnectionState.Open Then con.Close() End If con.Close() Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub
  22. Ora muito bom dia, tive a ver na internet, e vi que era possivel criar várias funções para o mesmo objeto com as funções Case, mas no meu caso em concreto não sei se será aplicável, passo a explicar. https://ibb.co/t3MrRFg como podem ver na imagem, tenho uma form(1) com vários botões, quando carrego em qualquer botão irá abrir uma nova form(2) que será esta https://ibb.co/MVbbpw8 cada botão da form(2) abre uma diretoria específica alojada no servidor da empresa. A minha grande questão é se tenho que criar uma form nova para cada botão da form(1) ou então se é possivel atribuir várias diretorias ao mesmo botão da form(2), variando consoante o botão escolhido da form(1) Por exemplo, é possivel criar valores de entrada para um botão, e consoante esse valor, o botão da (form2) executa o código atribuido para cada valor ?
  23. Bom dia atodos do forum estou com problema e quem puder me ajudar agradeço tenho um codigo fonte em vb.net com banco de dados access que esta a me dar uma dor de cabeça sendo assim vou expor o problema tenho um formulario cadastro de produtos que so esta aceitando numeros inteiro ao colocar o preço numero fracionado (Ex: 12.16) e devidaente ao tentar gravar ou atualizar me aparece esse erro:lembrando que o sistema so aceita ponto e nao virgura " data type mismatch in criteria expression " 1) No codigo a variavel preço esta declarada como double cmd.Parameters.Add(New OleDbParameter("@d5", System.Data.OleDb.OleDbType.Double, 10, "price")) 2) no banco de dados access esta assim NOME DO CAMPO | TIPO DE DADOS Preço numerico -----------propiedades do campo-------------- tamanho do campo: duplo casas decimais: Auto necessario: nao indexado: nao Alinhamento de Texto: geral ATENÇAO: eu agora nao sei se o problema e no codigo ou no banco de dados
  24. Arcanjo Conde

    Listagem campos agrupados

    datagridview como criar listagem com dados agrupados?
  25. Boa tarde, tenho um botão com o seguinte nome " CNC " Maquinação/Grafite Neste momento isto é o código que tenho, o que pretendo é aumentar o tamanho e pôr em negrito somente a palavra "CNC" Me.Button10.Font = New System.Drawing.Font("Comic Sans MS", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) Me.Button10.Location = New System.Drawing.Point(607, 204) Me.Button10.Name = "Button10" Me.Button10.Size = New System.Drawing.Size(156, 62) Me.Button10.TabIndex = 9 Me.Button10.Text = "CNC" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Maquinação/Grafite" Me.Button10.UseVisualStyleBackColor = True Me.Button10.UseWaitCursor = True Agradecia uma ajudinha, Cumprimentos, Pedro Costa
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.