Andersonjb

Bem, para fazer o Botao descer e usar a Propriedade Location do controle, que no caso tem as coordenadas cartesianas x e y ( x = distancia, y = altura ). Agora no caso do label, é so voce deixar o Label debaixo do botão 2, so que com a propriedade visible = false, ai quando o botao chegar no seu "destino", voce muda a propriedade para true que ela aparece, beleza? Falows!

Engraçado, em um botão funciona, mas em um MainMenu não ! Porque será?

E ai Gray, voce tentou fazer isso ai? Deu certo ??

não, não, voce não entendeu, essa propriedade não redimensiona o objeto, ela apenas movimenta o objeto de acordo com o que voce a esta ancorando (Top, Bottom, Left, Right). Anchor = Ancora. Voce concorda que se ela redimensionasse o objeto ele não iria para os lados, mas sim o seu tamaho seria modificado? Por isso passei esses codigos atras para voce, de uma reelida no ultimo tópico, se não conseguir entender poste aqui que eu tento tirar suas duvidas, beleza? Falows!

Não, estou usando no Procedimento do Botão do Menu, normalmente. Aonde voce testou, em um botão normal?

Gray, olha so que curioso, da uma olhadinha nesse código: Dim dt As New DataTable Dim linha As DataRow Dim coluna As DataColumn Dim texto As String dt = dgtabela.DataSource For Each linha In dt.Rows For Each coluna In dt.Columns texto = linha(coluna) If texto <> "" Then MsgBox("ui") End If Next Next Bem, se voce analisar, se tiver algum texto na DataGrid, ele vai mostrar a MessageBox, correto? ERRADO! Esperimente colocar somente uma letra na DataGrid, ele não vai mostrar a MessageBox, mas se você colocar duas, ele mostra. Curioso, não? Sera a condição, erro do compilador? Voce tem alguma ideia? Muito curioso isso...

Eu preencho normalmente, vou la e digito os dados nela, e depois faço referencia a ela como voce falou, dessa maneira: dt = dgtabela.DataSource

Não, não estou, estou ate escrevendo tudo na mesma linha na DataGrid...

há, mas não existe essa possibilidade, já que eu estou colocando apenas as letras a,b,c, certo?

Bem, o que seria um chr(0), um espaço em branco ?

Saquei, mas como eu faço para indicar um ponto exato na Data Table, para que ele comece a adicionar a partir dali ??

Sim, pode acontecer

Não, eu só quero que ao clicar na opção do menu, eu escreva por exemplo o alfabeto na Data Grid, entendeu, a partir da celula que esta selecionada. Entendeu meu codigo agora?

E ai pessoal, olhem o seguinte código: Dim dt As New DataTable Dim texto As String Dim gravar As IO.StreamWriter gravar = IO.File.CreateText("C:\Tabela.tbl") dt = dgtabela.DataSource For Each linha As DataRow In dt.Rows For Each coluna As DataColumn In dt.Columns If linha(coluna) <> "" Then texto = linha(coluna) MsgBox(texto) gravar.WriteLine(texto) End If Next Next gravar.Close() Bem, meu objetivo com o For Each e retirar o texto da data Table e gravar em um arquivo comum. Só que o problema e que assim, digamos que eu tenha esses quatro caracteres: Bem, na hora da gravação, ou do laç, tanto faz, eu so condigo retirar esses caracteres: Ou seja, eu não consigo retirar o ultimo caracter para gravação. Porque isso? Aonde eu estou errando, e na condição do if?

Bem, eu consegui, olha só: Dim x As String Dim y As String Dim dt As New DataTable x = dgtabela.CurrentCell.ColumnNumber y = dgtabela.CurrentCell.RowNumber dgtabela.ReadOnly = dgtabela.CurrentRowIndex < y dt.Columns.Add("K") dt.Columns.Add("J") dt.Columns.Add("Ç") For i As Integer = 0 To 14 dt.Rows.Add(New Object() {"vx", "vx", "vx"}) Next O problema agora está na hora de adicionar os dados, sempre da erro. O que eu estou fazendo de errado?

E ai, Alexandre, bem a propriedade Anchor dos controles quer dizer o mesmo que uma ancora, entendeu? Bem, ai vai um exemplo: Monte um Formulario com um botão e no evento Activated do Formulario coloque o seguinte codigo: Button1.Anchor = AnchorStyles.Left Voce vai reparar que quando voce aumenta ou diminui o formulario, o botão acompanha, mas não aumenta e nem sequer diminui de tamanho. Entendeu pra que serve o anchor? Pra fazer o que voce quer, que e aumentar ou diminuir o tamanho do formulario e dos controles de acordo com a resolução da tela, voce tem que primeiro pegar a resolução corrente do seu computador, e depois adaptar seu formulario de acordo com as configurações, concorda? então, para pegar a resolução, o codigo ficaria da seguinte maneira: Public w As Integer 'Declaração das Variaveis Publicas no Inicio do Form Public h As Integer Public tamanho As Integer Dim pa As SystemInformation h = pa.PrimaryMonitorMaximizedWindowSize.Width - 8 MsgBox(h) w = pa.PrimaryMonitorMaximizedWindowSize.Height.ToString + 22 MsgBox(w) tamanho = Button1.Size.Height MsgBox(tamanho) A Partir dai e so adaptar os controles de acordo com a resolução, entendeu? ! Qualquer coisa, tamos ai! Falows!

Putz, não saquei... como assim linha clicada "seria um campo da classe que guardaria posição da linha clicada" ? Voce quer dizer dessa maneira: E isso?

Bem, voce diz dessa maneira correto: Dim dt As New DataTable Dim obj As New Point Dim x As Integer Dim y As Integer Dim linha As DataRow Dim coluna As DataColumn obj.X = dgtabela.CurrentCell.ColumnNumber obj.Y = dgtabela.CurrentCell.RowNumber x = obj.X y = obj.Y For Each linha In dt.Rows For Each coluna In dt.Columns If linha(coluna) = x Then dt.Columns.Add("A") End If Next Next O Problema e que essa condição na bate... qual seria a condição certa neste caso?

não, eu digo da seguinte maneira: eu tenho uma celula selecionada, de repente eu aperto o botao direito do mouse e no meu menu eu aperto um comando que comece a escrever a ártir daquela celula selecionada, como eu faço isso?

E mais uma perguntinha Gray: se eu quissese escrever dados a partir de uma determinada linha(coluna), como eu poderia fazer isso?

Funcionou, eu fiz assim: If e.Button = MouseButtons.Right Then Dim obj As New Point obj.X = e.X obj.Y = e.Y Cmf.Show(dgtabela, obj) End If valeu, Gray!

Que no caso e o Cmf, correto? Bem, e como eu utilizo essa classe Point para mim determinar o menu embaixo da setinha do mouse?

Sim, que no caso era o control, e o pos, bem o control eu não entendi muito bem, mas o pos e a posição do mouse, não é? O que eu tenho que colocar nesses parametros? E porque eu tenho que dar parametros no metodo Show desse objeto se em outros eu não preciso disso?

Bem, no caso eu estou a usando para personalizar um menu na DataGrid quando eu clico com o botão direito, no caso um Context Menu. Bem, de uma olhadinha nesse código: If e.Button = MouseButtons.Right Then cmf.Show() End If Bem, era pro ContextMenu (cmf) ser mostrado, não é? Mas dá erro, porque?

E ai pessoal, como faço para que quando eu clique com o Botão Direito do Mouse na DataGrid apareça um menu suspenso? Eu tentei achar um evento do click com o botao direito do mouse, mas não achei nenhum... como posso fazer isso?