alexandremanowar

Cara como eu falei, usei e funcionou, mas estou tentando enteder essa classe que você criou mas não estou conseguindo! você poderia me explicar essa classe que você criou! Se não for pedir muito um passo à passo. É que eu não quero apenas pegar o código e usar quero entender ele, para usar melhor Valeu

E ae cara beleza! A largura das colunas você faz assim: ... dim tabela as datatable = ds.Tables(0) Dim estilo As New DataGridTableStyle(True) estilo.MappingName = tabela.TableName DataGrid1.TableStyles.Add(estilo) estilo.GridColumnStyles("endereco").HeaderText = "Endereço:" estilo.GridColumnStyles("enderco").Width = 100 ... Agora o não redimencionamento das colunas eu não sei no DataGrid, mas o amigo Graymlkin fez um exemplo para ListView vê se serve aí: Public Class MyListView Inherits ListView Private Const WM_NOTIFY = &H4E Private Const HDN_FIRST = -300& Private Const HDN_BEGINTRACK = (HDN_FIRST - 26) <StructLayout(LayoutKind.Sequential)> _ Private Structure NMHDR Public hWndFrom As Int32 Public idFrom As Int32 Public code As Int32 End Structure Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Dim foi As Boolean = False If m.Msg = WM_NOTIFY Then Dim nm As NMHDR = CType(m.GetLParam(GetType(NMHDR)), NMHDR) If nm.code = HDN_BEGINTRACK Then m.Result = New IntPtr(1) foi = True End If End If If Not foi Then MyBase.WndProc(m) End If End Sub End Class Basta ir na região "Windows Form Designer generated code" e trocar todos os System.Windows.Forms.ListView por MyListView. Como eu falei usei isso no listview, não em datagrid mas derrepente a idéia serve, se você conseguir posta aí pra ver como ficou valeu

E a e Graymalkin beleza! Cara quando eu clico em um form não aparece mas quando eu clico em um botão aparece sim, mas pelo que estou entendendo isso é apenas para o alinhamento do botão tipo esquerda, direita,etc e não para um controle de auto ajuste de um monitor(quando for mudado de 1024x168 para 800x600 ou outra) e mesmo assim como falei os forms não tem essa propriedade. Já procurei em vários tutoriais, mas não acho nada que faça isso. É uma ação importante essa, imagine um form cheio de botões e opções feito para rodar em 1024x768 e derrepente o usuário quer usar o monitor em 800x600. Ele vai perder a informação do form porque não caber na tela, estou passando por uma situação dessa. Cara vou procurar mais, se você poder me ajudar agradeço.

Cara valeu funcionou! Agora estou estudando a classe para ver se eu entendo, se eu tiver alguma dúvida vou perguntar! At + cara

E a pessoal beleza! Estou trabalhando com winform e estou montando a entrada do programa da seguinte forma, assim que o programa é executado ele pede o usuário e a senha. Até aí está beleza, a segunda etapa é ver se o usuário e senha conferem fazendo a consulta no banco de dados. A consulta também está ok! O problema esta na hora de fazer a condição. Seria assim se não existir o DataSet vai ficar vazio, logo se estiver vazio tem que dar a mensagem de senha e usuário não encontrado, e essa é a parte que está dando errado. Como eu faço para minha isntrução IF saber se o DataSer está vazio? AS demais partes estão funcionando. O meu código esta assim: Dim usuario As String = InputBox$("Digite abaixo seu Usuário", "Login", , , ) Dim senha As String = InputBox("Digite abaixo sua Senha", "Senha", , , ) Dim cmd As New SqlCommand("select * from senhadeals where senha='" & Trim(senha) & "' and usuario='" & Trim(usuario) & "'", sqlcon) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet Dim tb As New DataTable da.Fill(ds) ds.Tables.Add(tb) If ds.Tables(0).Rows(0).Item("nivel") = "Administrador" Then mdiFilho = New Principal mdiFilho.MdiParent = Me mdiFilho.Show() Else MsgBox("Ainda não foram criados os demais níveis", MsgBoxStyle.Information, "Atenção") End If Aguém pode me explicar como fazer a parte que está faltando?

E a e Graymalkin beleza! Cara onde eua cho essa propriedade Anchor? Já procurei no caixa de propriedades e não achei. Tentei digitar mas nada!

E a e Pessoal Eu estou fazendo alguns exercícios em vb.net com winforms, eu gostaria de saber como eu faço para que o meu formulário quando estiver maximizado, fique de acordo com a definição do vídeo. Por exemplo eu estou programando em 1024x768, e meus formulários estão defindos para ficarem maximizados automáticamente. Se eu deixar o meu monitor com 800x600 os meus formulários ficam destorcidos. Como faço para que eles acompanhem o redimensionamento do monitor, tanto os forms quanto os objetos que estão agregados ao form? É possível fazer isso? Porque se eu fizer um projeto ele pode ser instalados em máquinas 1024x768 ou 800x600 ou outra qualquer?

Firmeza cara valeu pela força! Vou pesquisar também se eu descobrir posto aqui.

Legal cara entendi! Como eu faço para não permitir que o usuário consiga redimensionar o tamanho das coluna com o mouse? Porque eu deixo um tamanho mas pode ser redimensionado com o mouse e quero tirar isso, para ficar padrão

E ae Graymalkin beleza Cara perdoe o meu erro, cometi uma falha, essas dúvidas que postei acima não é para DataGrid é para ListView. Depois que comeceia a ler o link que você mandou pensei, "porque ele colocou o link de quando eu estava aprendendo sobre Datagrid", aí foi que reparei que coloquei o tópico "DataGrid" Me perdoe cara. Mas corrigindo, essas dúvidas acimas são para ListView. Como eu faço para controlar formatação? Já tentei usar igual fiz no DataGrid ma não está dando certo.

E a e pessoal beleza Eu gostaria de saber como eu faço formatação no Data Grid, tipo largura de coluna, cor de fonte e cor da linha. Alguém pode me explicar isso? Valeu

E ae Graymalkin beleza ! Cara estudei aqui o esquema e cheguei na solução que eu precisava! Consegui fazer o ajuste de horas e jogar no ListView. Cara valeu mesmo pela força, você me ajudou muito, estou aprendendo legal aqui no fórum. Para quem tiver o mesmo problema, é só estudar estudar os exemplos que o Graymalkin deixou e esse mais esse exemplo que estou postando: Esse código faz uma consulta no banco e pega os valores para o cálculo e exibe em um ListView Dim consultarelatorio As New SqlCommand("select * from pontofunc where funcionario = '" & Trim(func) & "' and ano = " & Trim(ano) & " and mes = " & Trim(mesport) & "", sqlcon) Dim da2 As New SqlDataAdapter(consultarelatorio) Dim ds2 As New DataSet da2.Fill(ds2) listafunc.View = View.Details Dim coluna(8) As ColumnHeader coluna(0) = New ColumnHeader coluna(0).Text = "DIA" coluna(1) = New ColumnHeader coluna(1).Text = "ENTRADA" coluna(2) = New ColumnHeader coluna(2).Text = "SAÍDA" coluna(3) = New ColumnHeader coluna(3).Text = "ENTRADA" coluna(4) = New ColumnHeader coluna(4).Text = "SAÍDA" coluna(5) = New ColumnHeader coluna(5).Text = "ENTRADA" coluna(6) = New ColumnHeader coluna(6).Text = "SAÍDA" coluna(7) = New ColumnHeader coluna(7).Text = "ENTRADA" coluna(8) = New ColumnHeader coluna(8).Text = "SAÍDA" listafunc.Columns.AddRange(coluna) Dim item As ListViewItem Dim horarios As New ArrayList Dim registro Dim i As New Integer For Each registro In ds2.Tables(0).Rows If registro("dia") = 21 Then 'aqui armazena os valores horarios.Add(New TimeSpan() {New TimeSpan(registro("horaentrada"), registro("minutoentrada"), 0), New TimeSpan(registro("horasaida"), registro("minutosaida"), 0)}) End If Next Dim entrada, saida, subtotal, total As TimeSpan total = New TimeSpan(0, 0, 0) For Each horário As TimeSpan() In horarios 'esse é o horário real entrada = horário(0) saida = horário(1) 'aqui é a diferença entre entrada e saída original subtotal = saida.Subtract(entrada) total = total.Add(subtotal) Next 'aqui define o limete de 8 horas Dim máximo As New TimeSpan(8, 0, 0) If total.CompareTo(máximo) > 0 Then Dim diferença As TimeSpan = total.Subtract(máximo) Dim minutos As Double = diferença.TotalMinutes 'aqui divide o horário excedente pela quantidade de horas Dim cada As Double = minutos / horarios.Count For Each horário As TimeSpan() In horarios 'mudando a hora final, retirando o excedente 'ou seja pegando a hora excedente e retirando da saida horário(1) = horário(1).subtract(New TimeSpan(0, cada, 0)) Next End If total = New TimeSpan(0, 0, 0) For Each horario As TimeSpan() In horarios 'aqui os horários já estão reajustados entrada = horario(0) saida = horario(1) 'aqui mostra a diferença de horas dos horários reajustados subtotal = saida.Subtract(entrada) total = total.Add(subtotal) While i < 1 item = listafunc.Items.Add(registro("dia")) i = i + 1 End While item.SubItems.Add(entrada.ToString) item.SubItems.Add(saida.ToString) Next End If At+ Valeu

Cara valeu pela força! Agora eu entendi valeu mesmo. Vou estudar mais e quando eu acabar vou postar o que fiz para ficar de exemplo para quem tiver a mesma dúvida

Cara valeu pela força mais uma vez! Eu estou estudando o código que você fez e estou com dúvida nessa parte: If total.CompareTo(máximo) > 0 Then Dim diferença As TimeSpan = total.Subtract(máximo) Dim minutos As Double = diferença.TotalMinutes Dim cada As Double = minutos / horários.Count For Each horário As TimeSpan() In horários 'mudando a hora final, retirando o excedente horário(1) = horário(1).subtract(New TimeSpan(0, cada, 0)) Next End If Olha o que eu entendi: essa linha:Dim minutos As Double = diferença.TotalMinutes converte a hora excedente em minutos essa linha: Dim cada As Double = minutos / horários.Count é onde eu estou com dúvidas ela converte em horas de novo acredito que estou entendendo errado!. essa linha:horário(1) = horário(1).subtract(New TimeSpan(0, cada, 0)) eu entendi claro que ela tira o excedente mas a variável ficou apenas no lugar do minuto???? não teria que ser hora e minuto. Por exemplo no exemplo que postei acima vou ter que retirar uma média de 4:12 minutos de cada saída? O código funciona muito bem mas eu quero entender! Desculpe se estou encomodando cara. Esse é o único meio que tenho de entender ou aprender algo é aqui no fórum. você pode me explicar esse pedaço? AS demois partes do código estou entendeo bem! Valeu pela força mais uma vez

E ae Graymalkin beleza! Cara acho que já faz umas duas semanas que peguei seu exemplo acima e não consigo montar uma lógica que faço o cálculo das horas reduzindo elas até formar as 8 horas. Cara que dificil já olhei vários tutorias para aprender ou achar uam idéia mas está dificil. Eu tentei fazer mais ou menos assim pegar o total de horas divir por 4 e depois pegar o valor e subtrair por cada uma dos 4 valores. Mas não consegui nada. Fora outra coisas que tentei fazer! você pode fazer um cálculo desse e me ensinar cara já estou sem idéia para fazer isso cara! Não sei mais o que fazer! Parece pouco mas não cosigui cara tentei mas não consegui. Eu preciso de um cálculo que faça aquilo que postei acima! você pode me ajudar cara?

E a e pessoal Eu fiz uma consulta em um banco de dados mysql onde tenho os seguinte campos: dataentrada,datasaida,horaentrada,horasaida logo ficou uma variável para armazenar o valor de cada campo: Se por exemplo o cara entrou na seguinte data 2005/11/10 e saiu no dia 2005/11/13 Qual a função que eu uso para calcular a diferença de dias? Ou seja o resultado de quantos dias o pessoa permaneceu no ambiente? Tenho outra dúvida se para calcular horas se o cara entra às 12:30:00 e saí 16:12:26 Como eu faço para saber a diferença de horas entre 12:30:00 e 16:12:26. Ou seja quantas horas o cara ficou no ambiente? Como faço essas funções?

Consegui fazer. Porém ainda ficou uma dúvida que é aseguinte: armazenei dois valores de hora na minha tabela em campo tipo "time" agora fiz uma consulta e joguei os valores da tabela em duas variáveis e ficou assim: $hora1 = 7:32:12 $hora2 = 10:15:56 Agora eu gostaria de subtrair as duas horas para saber qual o intervalo entre as duas. Como faço isso? Qual a função que eu posso usar para subtrair hora? a idéia matemática seria essa: $hora2 - $hora1

E ae Pessoal Estou com algumas dificuldades: Quero saber como criar um campo no mysql para armazenar hora? Quero saber como capturar a hora do sistema em uma variável? Quero saber como como armazenar essa variável no banco? Depois quero saber como tirar a diferença de horas. Tipo: 9:00 - 11:00 = 2:00 Claro isso usando uma função que calcule hora! Meu problema é esse. Aguém pode me ensinar como fazer isso?

E ae Graymalkin Cara Acredito que o você.net 2005 já foi lançado aqui. Estou errado? No site da microsoft está anunciando mas não acho data de nada, e fala mais do SQL Eu gostaria de algum artigo que que fale legal das diferenças procurei na bufalo mas não achei nada que diga a diferença de do 2003 para o 2005. Achei muito material lá mas não as novidades. Será que já tem algum tutorial? Valeu

Cara valeu, legal essa função, entendi e estou testando, valeu mesmo pela força. Os cálculos funcionam certo porém ainda falta algo, por exemplo ele deixa certinho mostrando 8 horas, mas eu tenho que listar na tela os horários do cara tipo, igual esse horário: Esse é o horário original: entrada 7:00 saída: 10:32 entrada:12:00 saída :14:50 entrada:16:12 sáida :19:52 entrada:21:00 saída 23:48 Esse horário ultrapassa as 8 horas de trabalho Tenho que fazer com que o horário se ajuste para 8 horas de trabalho Então o cálculo vai ser feito igual você fez se passar de 8 horas que é o caso desse valores vai ter que ajustar a listagem de modo que ela mostre apenas 8 horas, ou seja reduzir todos os horários acima de modo que eles totalizem 8 horas. Cara já estou louco de tanto pensar e não consigo pensar em uma lógica para calcular isso! Essa função que você me ensionou é muito melhor de trabalhar mas estou travando nesse final. você tem alguma lógica para calcular isso? Preciso de ajuda já estou nisso um tempão !!!!

Esse aí em cima sou eu Esqueci de logar

E ae pessoal Estou desenvolvendo um projeto em vb.net estou usando winform. Estou com seguinte problemas, é para uma empresa que os funcionários tem de 2 a 4 entradas no mesmo dia em horários diferentes, tipo assim: Os caras entram as 7:00 e saí as 10:32, volta as 12:00 e saí as 14:50, entra 16:12 e saí as 19:25 entra 21:00 e saí as 23:48 ou pode ser que entre as 7:00 e saí as 12:00, depois entra as 14:24 e saí as 19:52, entra as 21:22 e saí as 23:50 ou entra as 7:00 e saí as 12:00 e depois entra as 15:30 e saí 23:40 AS entradas e saídas podem varias mas vai ser sempre de 2 a 4 entradas por dia, eu tenho que fazer um software que quando o cara for consultar o ponto mensal se o funcionário tiver passado de 8 horas trabalhas o software não mostre o ponto real que o funcionário fez mas mostre apenas 8 horas de trabalho ou seja quando for feita a consulta o programa soma todas as horas daquele dia e se passar de 8 horas ele reduz para 8 horas. No banco de dados vai estar armazenado o horário real que o cara fez ma na tela apenas as 8 horas Eu já tenho algo aqui estou quase chegando lá: A horas são armazenadas da seguinte forma no meu banco: Tenho os campos:dia,horaentrada,minutoentrada,horasaida,minutosaida Olha meu código como está: If registro("dia") = 18 Then Dim horaentrada = registro("horaentrada") Dim horasaida = registro("horasaida") Dim totalhoraentrada As Integer = totalhoraentrada + horaentrada Dim totalhorasaida As Integer = totalhorasaida + horasaida Dim totalhorafinal As Integer = totalhorasaida - totalhoraentrada While i18 < 1 item = listafunc.Items.Add(registro("dia")) i18 = i18 + 1 End While If totalhorafinal <= 8 Then item2 = registro("horaentrada") & ":" & registro("minutoentrada") item.SubItems.Add(item2) item3 = registro("horasaida") & ":" & registro("minutosaida") item.SubItems.Add(item3) MsgBox(totalhorafinal, MsgBoxStyle.Information, "ok") Else Dim horaroubo, horaroubo2 As Integer ''MsgBox(totalhorafinal, MsgBoxStyle.Information, "ok") horaroubo = totalhorafinal - 8 horaroubo2 = registro("horasaida") - horaroubo item2 = registro("horaentrada") & ":" & registro("minutoentrada") item.SubItems.Add(item2) item3 = horaroubo2 & ":" & registro("minutosaida") item.SubItems.Add(item3) End If End If Alguém pode me ajudar a arrumar esse código para calcular isso certinho?

beleza cara, vou começar e detalhar isso. Valeu pela força at+

Cara valeu com listview eu consegui fazer aquele modelo que falei acima, ficou legal encaixou certinho com a minha necessidade. Olha o código, se você achar um modo mais compacto de fazer ou melhor me corrija por favor: Dim consultarelatorio As New SqlCommand("select * from pontofunc where funcionario = '" & Trim(func) & "' and ano = " & Trim(ano) & " and mes = " & Trim(mesport) & "", sqlcon) Dim da2 As New SqlDataAdapter(consultarelatorio) Dim ds2 As New DataSet da2.Fill(ds2) listafunc.View = View.Details Dim coluna(8) As ColumnHeader coluna(0) = New ColumnHeader coluna(0).Text = "DIA" coluna(1) = New ColumnHeader coluna(1).Text = "ENTRADA" coluna(2) = New ColumnHeader coluna(2).Text = "SAÍDA" coluna(3) = New ColumnHeader coluna(3).Text = "ENTRADA" coluna(4) = New ColumnHeader coluna(4).Text = "SAÍDA" coluna(5) = New ColumnHeader coluna(5).Text = "ENTRADA" coluna(6) = New ColumnHeader coluna(6).Text = "SAÍDA" coluna(7) = New ColumnHeader coluna(7).Text = "ENTRADA" coluna(8) = New ColumnHeader coluna(8).Text = "SAÍDA" listafunc.Columns.AddRange(coluna) Dim item As ListViewItem Dim item2, item3, item4 Dim registro Dim i = 0 For Each registro In ds2.Tables(0).Rows If registro("dia") = 17 Then While i < 1 item = listafunc.Items.Add(registro("dia")) i = i + 1 End While item2 = registro("horaentrada") & ":" & registro("minutoentrada") item.SubItems.Add(item2) item3 = registro("horasaida") & ":" & registro("minutosaida") item.SubItems.Add(item3) End If Next O que você achou?

Valeu cara funcionou legal at+