Ir para o conteúdo
Diogo Lourenço

Ajuda algoritmo pesquisa binaria

Mensagens Recomendadas

Diogo Lourenço

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
       Dim extrax As Integer
       Dim extray As Integer
       For x As Integer = 0 To 8
           For y As Integer = 0 To 8
               cell(x, y) = New Sudoku_textbox
               cell(x, y).Text = ""
               cell(x, y).Width = 20
               cell(x, y).Height = 20
               cell(x, y).MaxLength = 1
               cell(x, y).TextAlign = HorizontalAlignment.Center
               extrax = 0
               extray = 0
               If x > 2 Then
                   extrax = 4
               End If
               If x > 5 Then
                   extrax = 8
               End If
               If y > 2 Then
                   extray = 4
               End If
               If y > 5 Then
                   extray = 8
               End If
               cell(x, y).Location = New Point(45 + x * 20 + extrax, 15 + y * 20 + extray)
               Me.Controls.Add(cell(x, y))
               AddHandler cell(x, y).TextChanged, AddressOf cell_changed
           Next

e este o codigo

Editado por pwseo
syntax highlight.

Partilhar esta mensagem


Ligação 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 os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.