Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры



Выпуск # 126


http://www.kbyte.ru/

 

Новый выпуск!

Здравствуйте!
Очередной выпуск рассылки Kbyte.Ru!

 

Содержание выпуска

Система ЭКСПЕРТ

    Вопрос #000084: Команда_AndAlso

    Вопрос #000080: Небольшой_вопрос_по_Visual_Basic

    Вопрос #000077: Проверка_выбора_цвета

    Вопрос #000076: Чтение_файла_с_конца_в_Visual_Basic_.NET

    Вопрос #000078: Запуск_любого_файла_в_VB_6.0

    Вопрос #000069: Проксик

    Вопрос #000073: Проблема_с_кодировками_в_VB_6.0

    Вопрос #000056: Получить_RSS_удаленно

    Вопрос #000064: Блокировка_кнопки_ПУСК

    Вопрос #000062: Изменение_PictureBox'a

Последнее на форумах

    Сохранение изменений в БД Acess (GridView)

    Access и php...

    Сохранение в *.rtf

    Long в диалоге

    ASP.NET Расширение кругозора

    RichTextBox, TextBox в таблицах Acess. (VB Net)

    У кого периодически пропадает авторизация, пишите в этот топик

    Main Menu и другие вопросы по VB Net

    MDI-форма

    Вкладки на форме

Последние статьи

    Выбор языка программирования для научных работ (2-я редакция)

    Работаем с MIME

    Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше

    Visual Basic .NET: Работа с файлами

    ASP .NET 2.0: Эталонные страницы

    Описание ошибок VB

    Горячие клавиши VB 6.0

    ASP .NET 2.0: Файл Global.asax

    Как узнать страну по IP-адресу?

    Visual Basic 6.0 - Экспорт DataReport в Microsoft Word

Интересные коды и решения

Юмор на Kbyte.Ru

 

Система ЭКСПЕРТ

 

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)


Вопрос #000084: Команда_AndAlso

Автор вопроса: Ivan // 20.04.2007 / 09:55

Здравствуйте, подскажите, для чего служит команда AndAlso в Visual Basic .NET?

Отвечает: EROS // 20.04.2007 / 09:55

Объясню на примере..

Допустим, мы имеем такие строчки кода:

0001:
0002:
0003:
  If (Not x Is Nothing) And (x.y = 10) Then
    ...
End If


Так вот, в том случае если x= Nothing вы получите исключение типа NullPointerException. Поскольку в этом случае проверются ОБА условия.. Если заменить And на AndAlso, то никакого исключения не будет потому что в этом случае ;проверка условий происходит несколько иначе. Если первое условие является ложным, то второе условие уже проверяться не будет! И соответственно код внутри этого блока тоже не будет выполнен. Таким образом мы имеем следующее.. В случае с And проверяются ОБА условия в любом случае, а в случае с AndAlso второе условие проверяется только в том случае, если первое - истинно(True)

 

Вопрос #000080: Небольшой_вопрос_по_Visual_Basic

Автор вопроса: Анка // 19.04.2007 / 22:42

Доброе утро!

Мне Вас рекомендовали ;-)

Возникла проблема, я загружаю данные из базы данных в форму, проблема
в том, что со временем данных стало очень много, и моя программа как
бы "зависает". Я разместила на форме кнопку "Отмена", чтобы люди могли
отменять загрузку, но поскольку моя программка "висит", то нажать на
нее не возможно :(( Что посоветуете сделать в данном случае?


Огоромное спасибо за ответы! ;-)


Ой, совсем забыла, речь идет о Visual Basic 6.0 :-)

Отвечает: EROS // 19.04.2007 / 22:42

К сожалению, реализовать многопоточную модель на VB 6 крайне трудно. И
поэтому обычно идут на всякого рода ухищрения. Односложного ответат
тут нет, и все зависит от конкретной ситуации. Например при заполнении
ListBox или Tree большим объемом данных эти данные загружают не все
сразу, а частями.. по мере необходимости.. в зависимости от положения
ползунка прокрутки списка или по мере раскрывания "нодов".
Если же данные заполняются в цикле, то в таких случая внутрь цикла вставляют
оператор DoEvents. Это избавит от эффекта "подвисания" формы.
Возможно алгоритм заполнения данными не совсем корректный и его стоит
доработать. В любом случае решение зависит от ситуации...
--
С уважением,
EROS

Отвечает: Алексей Немиро // 20.04.2007 / 06:56

Здравствуйте,

Для этого можно использовать функцию DoEvents
http://kbyte.ru/Refbooks/Show.aspx?id=51

0001:
0002:
0003:
0004:
0005:
0006:
0007:
Private Sub Command1_Click()
  Dim i As Long
  For i = 0 To 10000000
    Label1.Caption = i
    DoEvents
  Next i
End Su


Здесь следует отметить, что если количество данных очень большое, то
DoEvents может значительно замедлить процесс загрузки данных, по
этому, рекомендую поставить счетчик, как в ниже следующем примере:

Private Sub Command1_Click()
Dim i As Long
For i = 0 To 10000000
If i Mod 1000 = 0 Then
Label1.Caption = i
DoEvents
End If
Next i
End Sub


--
С наилучшими пожеланиями,
Немиро Алексей

Отвечает: Анатолий Присяжнюк // 20.04.2007 / 07:07

Наилучшим выходом в данной ситуации является использование комбинации таймера и заполнение во время загрузки БД некоторой области цветом - как это делается во время инсталяции программ.
Если еще добавить процент загрузки и надпись типа
"Подождите, пожалуйста!
Идет релаксация баз данных..."
то будет смотреться не только красиво, но и солидно.
Использование циклов, рекомендованное выше, не желательно, так как на разных процессорах скорость их выполнения разная и поэтому эта технология уже давно не применяется.

--
С уважением:
Анатолий

 

Вопрос #000077: Проверка_выбора_цвета

Автор вопроса: Александр // 19.04.2007 / 22:14

Подскажите, эксперты, как узнать, выбрал юзверь цвет в ColorDialog или
нет?

Я программирую в Visual Basic .NET 2005

В заранее, спасиба

Отвечает: EROS // 19.04.2007 / 22:14

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load

Const HEADER As String = "kbyte.ru sample"

Dim dlgColor As New ColorDialog
If dlgColor.ShowDialog = DialogResult.OK Then
MessageBox.Show("Пользователь выбрал:" & dlgColor.Color.ToString, _
HEADER, _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)

Else
MessageBox.Show("Пользователь ничего не выбрал!", _
HEADER, _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End If
End Sub

End Class

--
С уважением,
EROS

 

Вопрос #000076: Чтение_файла_с_конца_в_Visual_Basic_.NET

Автор вопроса: Николай // 19.04.2007 / 22:07

Здравствуйте!

Мне нужно прочитать прочитать определенное количество байт с конца
файла, без загрузки всего файла, так как файл может быть большим. Как
это сделать?

Visual Basic NET 2.0


В заранее, спасибо.

Отвечает: EROS // 19.04.2007 / 22:07

0001:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0009:
0010:
0011:
0012:
0013:
0014:
0015:
0016:
0017:
0018:
0019:
0020:
0021:
0022:
0023:
0024:
0025:
0026:
0027:
0028:
0029:
0030:
0031:
0032:
0033:
0034:
0035:
0036:
0037:
0038:
0039:
Imports System.IO
Imports System.Text

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) _
                           Handles MyBase.Load

        Dim _filePath As String = "C:\testFile.bin" '// Путь к файлу с данными
        '// тестовый массив байт
        Dim buffer() As Byte = Encoding.Default.GetBytes("Вася Пупкин")
        '//записываем в файл
        File.WriteAllBytes(_filePath, buffer)

        '// Получаем последние 6 байт
        Dim _lastBytes = ReadLastBytes(_filePath, 6)
        '// result test
        MessageBox.Show(Encoding.Default.GetString(_lastBytes))
    End Sub

    Public Shared Function ReadLastBytes(ByVal filePath As String, _
                                         ByVal countBytes As Int32) As Byte()

        Dim _result(countBytes - 1) As Byte '// Буфер для возврата

        Using fs As FileStream = File.OpenRead(filePath)
            Dim _bytes(fs.Length - 1) As Byte
            Dim _offset As Int32 = fs.Length - countBytes
            fs.Position = _offset
            fs.Read(_bytes, _offset, countBytes)
            Array.Copy(_bytes, _offset, _result, 0, countBytes)
        End Using

        '// возвращаем результат
        Return _result
    End Function

End Class

--
С уважением,
EROS

 

Вопрос #000078: Запуск_любого_файла_в_VB_6.0

Автор вопроса: Avan // 19.04.2007 / 15:39

Уважаемые Эксперты!

Подскажите, как в Visual Basic 6.0 открыть любой файл приложением, которое за это
отвечает?

Например txt - блокнотом, doc - Word, html - Internet Explorer (или
другим браузером по умолчанию)

А то на форумах надомной издеваются :((

thx!

Отвечает: gvozd // 19.04.2007 / 15:39

Здравствуйте!
Воспользуйтесь API-функцией ShellExecute:

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long

Использовать так (пример открывает текстовый файл):
ShellExecute Me.hwnd, vbNullString, "C:\1.txt", vbNullString, "C:\",
SW_SHOWNORMAL

 

Вопрос #000069: Проксик

Автор вопроса: Аномалия // 19.04.2007 / 06:27

Доброго время суток всем!

Такой вопрос, как можно зделать свой собственный прокси-сервер на
Visual Basic .NET или C#, чтобы программа обрабатывала HTTP-запросы?

Отвечает: Алексей Немиро // 19.04.2007 / 06:27

Здравствуйте,

Для реализации этого нужно прослушивать определенный порт, например так:

Visual Basic .NET
0001:
0002:
0003:
'прослушивание 8888 порта
Dim myTcpListener As New TcpListener(Net.IPAddress.Any, 8888)
myTcpListener.Start() 'запуск прослушки порта


Что касается HTTP, то тут Вам придется почитать особенности
этого протокола.
Главным образом Вам надо будет извлекать из заголовков от клиента значение параметра host, делать запрос на
получение требуемой странички (файла) и отправлять ее (его) клиенту.


--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000073: Проблема_с_кодировками_в_VB_6.0

Автор вопроса: krigk // 18.04.2007 / 10:44

Привет,
У меня есть проблемка... Пользуюсь VB6
Имеется файл в DOS кодировке, и когда его читаешь (построчно пытаешься создавать переменные) он записывает все в одну
строку, и создает одну большую переменную.
Когда руками перевожу в Win кодировку, то читает построчно.
Еще когда смотришь файл в шеснадцатиричной системе то там знак переноса строки 0A, а надо 0D 0A. Если файл перевести в
шеснадцатиричную систему, потом искать все 0A и заменять их на 0D 0A, после перевести в нормальный вид обратно. Это я
логически рассуждаю. :)
Может есть проще пути?
Никто не сталкивался с подобным?
Спасибо.

Отвечает: Алексей Немиро // 18.04.2007 / 10:44

Здравствуйте,

Для перекодировки текста из DOS в Win можно вопользоваться этим кодом:
http://kbyte.ru/Unicode/ShowGroup.aspx?id=3

0000:
0001:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0009:
0010:
0011:
0012:
0013:
0014:
0015:
0016:
0017:
0018:
0019:
0020:
0021:
0022:
0023:
0024:
0025:
0026:
0027:
0028:
0029:
0030:
0031:
0032:
0033:
0034:
0035:
0036:
0037:
0038:
0039:
0040:
0041:
0042:
0043:
0044:
0045:
0046:
0047:
0048:
0049:
0050:
0051:
0052:
0053:
0054:
0055:
0056:
0057:
0058:
0059:
0060:
'***********************************
'КОД ФОРМЫ *************************
'***********************************

Private Sub Form_Load()
  'выравниваем элементы на форме
  Text1.Top = Me.ScaleTop
  Text1.Left = Me.ScaleLeft
  Text1.Height = Me.ScaleHeight - Command1.Height
  Text1.Width = Me.ScaleWidth
  Command1.Top = Text1.Top + Text1.Height
  Command2.Top = Command1.Top
  Command1.Left = Text1.Left
  Command1.Width = Me.ScaleWidth / 2
  Command2.Width = Command1.Width
  Command2.Left = Command1.Width + Command1.Left
  Command1.Caption = "Win -> DOS"
  Command2.Caption = "DOS -> Win"
End Sub

Private Sub Command1_Click()
  Text1 = nasConvertChar(Text1, nasWinToDos)
End Sub

Private Sub Command2_Click()
  Text1 = nasConvertChar(Text1)
End Sub

'***********************************
'КОД МОДУЛЯ ************************
'***********************************

Public Declare Function CharToOem _
        Lib "user32" Alias "CharToOemA" _
        (ByVal lpszSrc As String, _
        ByVal lpszDst As String) As Long
Public Declare Function OemToChar _
         Lib "user32" Alias "OemToCharA" _
         (ByVal lpszSrc As String, _
         ByVal lpszDst As String) As Long

Public Const nasDosToWin As Long = &H0
Public Const nasWinToDos As Long = &H1

Public Function nasConvertChar _
        (ByVal strString As String, _
         Optional lngCurrent = nasDosToWin) As String
  Dim strResult As String
  strResult = String(Len(strString), 0)

  Select Case lngCurrent
    Case nasDosToWin
      OemToChar strString, strResult
    Case nasWinToDos
      CharToOem strString, strResult
    Case Else
      OemToChar strString, strResult
  End Select

  nasConvertChar = strResult
End Function
0000:
0001:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0009:
Dim FileNum
Dim sResult As String
Dim Str As String
FileNum = FreeFile
Open App.Path & "\1.txt" For Input As FileNum
Do Until EOF(FileNum)
  Line Input #FileNum, Str
  'Переменная Str содержит строку данных из файла
  sResult = sResult & Str & vbCrLf
Loop
0000:
0001:
0002:
0003:
0004:
  'открываем текстовой файл
  Open "C:\SCANDISK.LOG" For Input As #1
  'считываем весь файл в окно отладки
  Debug.Print Input(LOF(1), 1)
  Close #1 'закрываем файл
0000:
0001:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0009:
Private Sub Form_Load()
  Dim strMyString As String
  strMyString = "Привет! Это пример работы " & _
                "функции Replace, правда здорово!"
  'выводим оригинальный текст
  Debug.Print strMyString
  'выводим обработанный текст _
   меняем слово "Привет" на "До свидания"
  Debug.Print Replace(strMyString, "Привет", "До свидания")
End Su
0000:
0001:
Dim str As String
str = Replace("текст " & Chr(&HA) & "текст2", Chr(&HA), vbCrLf)
0000:
0001:
Dim str As String
str = Replace("текст " & Chr(10) & "текст2", vbLf, vbCrLf)


Chr(10) = Chr(&HA) = vbLf
Chr(13) = Chr(&HD) = vbCr
Chr(13) & Chr(10) = Chr(&HD) & Chr(&HA) = vbCrLf


--
С наилучшими пожеланиями,
Немиро Алексе

 

Вопрос #000056: Получить_RSS_удаленно

Автор вопроса: Михаил Петрович // 17.04.2007 / 19:04

---------------
/ Здравствуйте /
---------------

---------------------------------------------------------------------
| У меня такая проблема, есть RSS где-то в интернете, а мне нужно с |
| моего сайта сделать так, чтобы страница получала указанный RSS и |
| извлекала определенные данные. Как это можно сделать? |
---------------------------------------------------------------------

---------------------------------
| ASP .NET, Visual Basic .NET |
---------------------------------

-----------
/ Спасибо /
-----------

Отвечает: EROS // 17.04.2007 / 19:04

Получение RSS-данных это довольно обширная тема, и одним разом на нее
не ответишь. Но вы должны понимать, что RSS-это обычный Xml-файл и
работа с ним ничем не отличается от работы с обычном файлом в формате
Xml. Что касается непосредственно получения Xml-данных с другого сайта
то тут тоже все довольно легко решается с помощью
System.Net.WebClient.
Этот класс предоставляет удобные методы как для отправки так и для
получения данных с сервера. Так же я неоднократно видел в сети
бесплатные NET-компоненты для работы с RSS-форматом (на тот случай
если у вас с xml трудности).. я думаю вы их без труда сможете найти.
--
С уважением,
EROS

 

Вопрос #000064: Блокировка_кнопки_ПУСК

Автор вопроса: Renat // 17.04.2007 / 14:46

На вашем сайте нашел код для Visual Basic 6.0:
[url=http://kbyte.ru/forum/show.aspx?id=833][/url]

0000:
0001:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0009:
0010:
0011:
0012:
0013:
0014:
0015:
0016:
0017:
0018:
0019:
0020:
0021:
0022:
0023:
0024:
0025:
Option Explicit
Private Declare Function EnableWindow Lib "user32" _
        (ByVal hWnd As Long, _
        ByVal fEnable As Boolean) As Long
Private Declare Function FindWindow Lib _
        "user32" Alias "FindWindowA" _
       (ByVal lpClassName As String, _
       ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib _
        "user32" Alias "FindWindowExA" _
        (ByVal hWndParent As Long, _
        ByVal hWndChildAfter As Long, _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib _
        "user32" (ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
Dim hPanel As Long, hPusk As Long

Private Sub Command1_Click()
  EnableWindow hPusk, False
End Sub

Private Sub Command2_Click()
  EnableWindow hPusk, True
End Su
/div>

Но он у меня почему-то не работает :(

Отвечает: Алексей Немиро // 17.04.2007 / 14:46

Здравствуйте,

Код не совсем полный:
0000:
0001:
0002:
0003:
Private Sub Form_Load()
  hPanel = FindWindow("Shell_traywnd", vbNullString)
  hPusk = FindWindowEx(hPanel, 0, "Button", vbNullString)
End Su
/div>

А также на форме обязательно должны находится две кнопки - Command1 и Command2

--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000062: Изменение_PictureBox'a

Автор вопроса: RОЯЛЬ // 17.04.2007 / 14:18

Здравствуйте, expert.

Когда запускается проект, то в нём находится PictureBox. В него я
сразу врисовываю линии(ну или подобные фигуры) через PictureBox_Paint.
Через некоторое время у мя в процессе работы программы появляются
данные по которым необходимо изменить нарисованное в
PictureBox'е(дорисовать какие-то линии). Как такое осуществить?
Приведите пожалуйста код простейший..

Visual Basic .NET

Отвечает: Алексей Немиро // 17.04.2007 / 14:18

Здравствуйте,

Пример #1:


Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawLine(Pens.Black, 10, 10, 1000, 1000)
End Sub


Пример #2:

Dim g As Graphics = PictureBox1.CreateGraphics()
g.DrawLine(Pens.Blue, 1, 1, 200, 500)


Пример #3:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myBitmap As New Drawing.Bitmap(32, 32)
Dim myGraphics As Drawing.Graphics = Graphics.FromImage(myBitmap)
'прямая линия начиная с 15 пикселя с верху до левого угла размером 32 пикселя
'черного цвета, толщиной 2 пикселя
Dim myPen As New System.Drawing.Pen(Color.Black, 2)
myGraphics.DrawLine(myPen, 0, 15, 32, 15)
'линия синего цвета, проходящая по-диоганали с верхнего
'левого угла в нижний правый размером 32 пискселя
myGraphics.DrawLine(Pens.Blue, 0, 0, 32, 32)
'линяя красного цвета, проходящая по-диоганали с нижнего
'левого угла в верхний правый угол размером 32 пискселя
myGraphics.DrawLine(Pens.Red, 0, 32, 32, 0)
'круг зеленого цвета
myGraphics.DrawEllipse(Pens.DarkGreen, 0, 0, 32, 32)
'квадрат цветом Aqua
myGraphics.DrawRectangle(Pens.Aqua, 2, 2, 28, 28)
'вставляем данные в Form
Me.BackgroundImage = myBitmap
End Sub



--
С наилучшими пожеланиями,
Немиро Алексей

 


Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

 

 

Голосование на Kbyte.Ru

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.
Будете ли Вы участвовать в конкурсах, проводимых на сайте?
На сайте периодически проводятся конкурсы с призами. Будете ли Вы принимать в них участие?
Да, с удовольствием! (15)
Возможно, буду (2)
Нет, меня это не интересует (2)
Нет, я не уверен (а), что смогу выиграть (1)
Нет, это слишком сложно для меня (0)
Нет, я считаю, что это обман и призов не будет (5)
Нет, призы этого не стоят (2)

Всего голосов: 27

Голосование на Kbyte.Ru

Наверх

 

Последнее на форумах

Сохранение изменений в БД Acess (GridView) | Автор: pasha
Добавлено: 17.04.2007 / 15:03 | ответов: 0 | просмотров: 19

Как в GridViewe сохранить изменения в таблице Acess (если я ввёл данные непосредственно в GridView, ведь он не сохраняет изменения просто так, при вводе данных? Код подскажите для VB NET. Спасибо.

Чего только не бывает, но жить приходится

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


Access и php... | Автор: Kolya007
Добавлено: 16.04.2007 / 18:52 | ответов: 6 | просмотров: 23

Скажите, как мне на php из БД Access взять таблицу, для её обработки? У меня получается взять всю БД, хотя мне нужна только одна таблица...

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


Сохранение в *.rtf | Автор: pasha
Добавлено: 16.04.2007 / 17:41 | ответов: 5 | просмотров: 31

Дайте, пожалуйста, код диалога для сохранения нескольких labeloв и текстовых полей в один файл формата *rtf.


Форма в проекте VB NET тут: http://pave-borisov.narod.ru/Biblio1.rar

P.S. Форма, всё для той же программы "библиотека"
Тех, кто поможет упомяну в Авторском праве :).

Спасибо.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


Long в диалоге | Автор: pasha
Добавлено: 16.04.2007 / 14:26 | ответов: 1 | просмотров: 20

Мне нужно чтобы в диалоговом окне была переменная Long:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButOK.Click
Dim TextBox1 As String
Dim guess As Double

TextBox1 = "Регистрационный код"


'
guess = CShort(InputBox(TextBox1))


If guess = 6567576 Then
Dim frm As New Windows
frm.Visible = True


End If

If guess <> 6567576 Then

Dim frm As New regeror
frm.Visible = True

End If


End Sub

Где Windows - главное окно моей программы
Где guess-Диалоговое окно с запросом регистрационного кода
VB NET.

Спасибо

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


ASP.NET Расширение кругозора | Автор: Bille Gates
Добавлено: 15.04.2007 / 18:11 | ответов: 2 | просмотров: 36

Hello Всем!
Вот, решил немного пополнить форум, и задать вопросы, которые мучали давно, но руки не доходили их задать! :)
1-ToolBox-это панелька слева, на ней компоненты разные, на ней есть группа Validation, там 6 компонентов которые я ни разу не использовал, если не трудно, объясните зачем они нужны, и приведите примеры использования этих компонентов.
2-Группа WebParts, её тоже не использовал, т.ч. вопрос тот-же что и в 1 случае! Что зачем и как использовать? + если не трудно примеры!
3-Незнакомые файлы... Т.е. в окне Add New Item Есть разные виды файлов, с некоторыми я не знаком, ниже я их перечисль, а вы постарайтесь помочь мне и написать их предназначение:
-WebService.asmx - что такое вэб сервисы я знаю, если можно дайте ссылку на пример их использования(пример с кодом), хотя, я ещё яндекс не насиловал этим, т.ч. если не знаете ссылку, не ищите, сам найду!
-Global.asax - не знаю что и зачем нужон, объясните! Плиз!
-Handler.ashx - не знаю что и зачем нужон, объясните! Плиз!
-XSLTFile.xslне - знаю что и зачем нужон, объясните! Плиз!
-BrowserFile.browser - по названию понятно что для задания настроек браузера, а что за настройки? мне ни разу не приходилось настраивать браузер! Хелп!
-ClassDiagram.cd - Понятно что диаграмма, а что и зачем не понятно! Хлеп!
Вместо ответа на все эти вопросы можете статью написать, т.к. объем ответов оч большой, если будете описывать каждый элемент!
Понимаю что это трудно(ответить на все вопросы), по этому дайте ссылку хотябы на то где можно об этом немного узнать, кроме MSDN :) я там уже был, то хочется нормальным языком всё узнать!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


RichTextBox, TextBox в таблицах Acess. (VB Net) | Автор: pasha
Добавлено: 15.04.2007 / 12:49 | ответов: 1 | просмотров: 28

1. Как засунуть содержимое TextBoxов и RichTextBoxoв, каждьй в свою строку (запись) в таблице БД Acess?
2. Как в GridViewe переименовать названия столбцов в таблицах БД Acess? P.S. Новые названия должны быть на русском языке.


Спасибо.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


У кого периодически пропадает авторизация, пишите в этот топик | Автор: Алексей
Добавлено: 15.04.2007 / 04:12 | ответов: 0 | просмотров: 21

Если у кого-то есть проблемы с авторизацией, пишите в этот топик.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


Main Menu и другие вопросы по VB Net | Автор: pasha
Добавлено: 14.04.2007 / 19:36 | ответов: 1 | просмотров: 36

Извините, а как с помощью кнопки порейти в другую форму приложения (код)? Просто я создавал раньше Notepadы и приложения с одной формой.
И какой код ещё нужно использовать в меню (Main Menu) при назначении ссылок на объекты, формы, диалоги и т. д.
И еще как засунуть в программу HelpProvider.
Всё VB Net.

Просто я учился программированию на VB 6, а там всё по другому и утилиты разные (Menu Editor, Microsoft Help Workshop) и др.
Поэтому я задаю такие, может быть глупые вопросы.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


MDI-форма | Автор: pasha
Добавлено: 14.04.2007 / 15:51 | ответов: 2 | просмотров: 35

А как создать MDI-форму, названия которой будут программно предопределены. (на VB NET)
Просто, насколько я знаю, на VB NET нет инструмента, для создания как контейнера-формы, так и дочерней формы. Извините, что задаю так много вопросов, но работа в самом разгаре.

И еше: как изменить заголовок столбца таблицы базы данных Acess в GridView?

Огромное спасибо за помощь.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


Вкладки на форме | Автор: pasha
Добавлено: 14.04.2007 / 14:56 | ответов: 1 | просмотров: 21

Как создать форму с переключением "экранов" формы с помощью "вкладок" (как в броузерах) на VB NET?

P. S. Программа все та же-библиотека, а переключение между списками читателей/журналов/книг.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru


Наверх

 

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1019

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. Вот именно не известный мне способ определения реакций меня и заинтересовал, но код программы...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1264

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2466

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

Visual Basic .NET: Работа с файлами
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 04.10.2006 / 10:35 | просмотров: 2923

В этой статье мы поговорим о работе с файлами. Научимся добавлять и удалять файлы/каталоги, записывать и читать данные из файла и.т.д.

ASP .NET 2.0: Эталонные страницы
Автор: Немиро Алексей | добавлено: 27.08.2006 / 04:08 | просмотров: 2218

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. ASP .NET 2.x предлагает уникальный метод создания одинаковой разметки для страниц сайта – это использование, так называемых, эталонных страниц. Если вы работали с ранними версиями ASP(ASP, ASP .NET 1.x), то, наверное, помните, что постоянно приходилось копировать HTML-код страницы с элементами ASP. Конечно, использование включаемых файлов (include) в классическом ASP, и пользовательских элементов управления (*.ascx) в ASP .NET 1.x, значительно упрощало разработку Web-сайтов, но это не сравнится с тем, что предлагает ASP .NET 2.x.

Описание ошибок VB
Автор: [root] | добавлено: 29.07.2006 / 06:58 | просмотров: 3164

В данном обзоре содержится русскоязычное описание ошибок Visual Basic 5.0/6.0.

Горячие клавиши VB 6.0
Автор: [root] | добавлено: 20.07.2006 / 13:21 | просмотров: 1741

В данном обзоре рассмотрены горячие клавиши Visual Basic 5.0/6.0, которые значительно ускоряют процесс разработки и тестирования программ.

ASP .NET 2.0: Файл Global.asax
Автор: Немиро Алексей | добавлено: 17.07.2006 / 18:04 | просмотров: 2035

Файл Global.asax является необязательным файлом приложений ASP .NET и содержит дополнительный код, отвечающий за обработку событий, происходящих на уровне приложения. Этот файл должен находиться в корневом каталоге Web-приложения. В ASP .NET 1.1 сей файл автоматически создавался Visual Studio при создании нового Web-проекта, в ASP .NET 2.0 Visual Studio Global.asax автоматически не создает, но его можно добавить в проект вручную. Все изменения, внесенные в файл Global.asax отслеживаются средой ASP .NET, и приложение перезагружается...

Как узнать страну по IP-адресу?
Автор: Amit Gupta | добавлено: 17.07.2006 / 08:09 | просмотров: 34985

Интернет широко распространен в большинстве стран и континентов. Узнать страну посетителей вашего веб-сайта может быть не легкой задачей, особенно если вы не знаете как это сделать...

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word
Автор: John D. Conway | добавлено: 17.07.2006 / 06:16 | просмотров: 2888

В этой статье мы создадим пример базы данных Microsoft Access и пользовательский интерфейс в среде Visual Basic 6.0. Сделать это будет относительно несложно, поскольку для работы с нашей базой данных мы будем использовать компонент ADODC Componenet (Microsoft ADO Data Control 6.0 (OLEDB)). Мы добавим DataEnvironment и DataReport и буквально, в течении минуты, мы уже сможем экспортировать наш DataReport в Microsoft Word Document. (.doc)...

 

Статьи на Kbyte.Ru

Наверх

 

Интересные коды и решения

Как заблокировать кнопку "Закрыть" ([X])
Дата добавления: 31.07.2006 / 12:12 | просмотров: 395 | платформа: VB

Изменение регистра текста
Дата добавления: 31.07.2006 / 12:30 | просмотров: 309 | платформа: VB

Как показать сообщение?
Дата добавления: 16.08.2006 / 23:31 | просмотров: 395 | платформа: VB

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:23 | просмотров: 811 | платформа: ASP .NET (VB)

Получение многоразрядного числа2
Дата добавления: 31.07.2006 / 12:33 | просмотров: 289 | платформа: VB

Как обработать не существующий адрес?
Дата добавления: 31.07.2006 / 14:45 | просмотров: 370 | платформа: ASP .NET (VB)

Как поместить одну форму в другую?
Дата добавления: 31.07.2006 / 12:09 | просмотров: 433 | платформа: VB

Как сделать Label с тенью?
Дата добавления: 16.08.2006 / 23:42 | просмотров: 408 | платформа: VB

Как «залить» форму определенным фоном?
Дата добавления: 31.07.2006 / 12:09 | просмотров: 350 | платформа: VB

Как добавить новые данные в базу данных?
Дата добавления: 31.07.2006 / 12:49 | просмотров: 431 | платформа: VB

 

Универсальные коды на Kbyte.Ru

Наверх

 

Юмор на Kbyte.Ru

Приходит хакер к пианисту, а тот ему хвалиться новым пианино. Хакер посмотрел оценивающее и сказал:
- Клавиатура, конечно хреновая, но то что shift ногами нажимать надо-это круто.

 

Рейтинг: 25
Всего голосов: 37
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Ехали как-то на джипе четыре братка, вдруг в них врезается сзади старая шестерка. Братки злые выходят из машины и видят из шестерки выходит старый дед. Братки ему:
Ну все дед ты попал!!!
Дед: Не злитесь ребятки, у меня сын на птицефабрике работает, я ему позвоню, он все уладит.
Братки думают ладно раз на птицефабрике работает, значит деньги есть.
Дед позвонил, приезжают через десять минут СОБРовцы, всех братков на землю повалили.
Подходид СОБРовец к деду и говорит:
Батя, сколько раз повторять можно, не на птицефабрике, а в отряде ОРЕЛ!!!

 

Рейтинг: 0
Всего голосов: 0
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Воспитательница из детского сада привела детей на экскурсию в зоопарк. Ведет она детишек и рассказывает: вот это большое животное с большими ушами - слон, с длинной шеей - жираф. Подходят к клетке с обезьянами. Детишки кидаются на клетку и кричат:
- Программисты, программисты!
- Почему вы так решили? - спрашивает воспитательница.
- А у них глаза красные и задница в мозолях.

 

Рейтинг: 26
Всего голосов: 43
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Биллу Гейтсу пpисвоили звание гpафа - тепеpь он ДеБилл Гейтс!

 

Рейтинг: 32
Всего голосов: 45
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Вовочка опоздал в школу, заходит без стука в дверь, не извинившись, садится на своё место.
Учительница в возмущении:
- Вовочка, как тебе не стыдно?! Ну-ка выйди и зайди, как заходит тdой папа...
Вовочка выходит из класса.
Вдруг дверь пинком открывается, Вовочка вразвалку заходит в класс и, осмотрев презрительно всех, ехидно спрашивает:
- Ну чё, придурки, не ждали?...

 

Рейтинг: 24
Всего голосов: 33
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Дедушка, а правда, что в Ленинграде во время блокады
хлеба не было?
- Да, внучек, правда. Масло на колбасу мазали.

 

Рейтинг: 0
Всего голосов: 0
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Журнал "Бизнес Ик" опубликовал список ста самых успешных бизнесменов России, он называется "Гоп сто".

 

Рейтинг: 24
Всего голосов: 40
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Программисту сказали написать архиватор. Он написал. Заказчик: "Ну заархивируй", прогер архивирует, показывает заказчику. "А теперь обратно разархивируй". Прогер: "А этого не было в исходной задаче!"

 

Рейтинг: 33
Всего голосов: 49
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

У нового русского спрашивают:
- Как вы заработали такое состояние?
- Ну, для начала нужен стартовый капитал.
- А как вы заработали стартовый капитал?
- Ну, для начала нужен хотя бы стартовый пистолет...

 

Рейтинг: 220
Всего голосов: 296
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Сидит в ресторане новый русский. На столе икорка, осетрина, коньячек, водочка. Все самое дорогое, по высшему классу. Он, не стесняясь, наворачивает с большим аппетитом. Рядом за столиком семья ботаников ест капустку. Отец с сантиметровыми линзами, мама тоже в очках и худенький сынишка-лицеист в потрепанном пиджачке. Новому русскому стало стыдно. Он подозвал мальчугана мол, пускай поест. Мальчик топчется на месте, стесняется. Мать, поправляя очки:
- Вы знаете, мой сын сыт.
Новый русский:
- Так я и говорю, пускай не ссыт, пускай хавает!!!

 

Рейтинг: 1
Всего голосов: 1
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное