Kbyte.Ru: Программирование на Visual Basic .NET

Render Target Bitmap Solution

Shark1 — Tue, 28 Feb 2012 02:20:19 GMT

Пример простенького приложения, позволяющего добавить и настроить отображение тени у вашей иконки в формате .png ну и потом конечно всё это сохранить в файл.

БД в VB 2010

rusiko — Sun, 26 Feb 2012 23:51:44 GMT

Привет всем. Во первых спасибо большое за помощь с LİSTBOX. У меня есть еще один вопрос. Помогите пожалуйста. Вопрос вот в чем. Я создал одну маленькую базу данных на SQL Server 2008 и сделал бэкап.Вроде бы все готово. Но я не могу перенести эту базу данных в Visual Basic 2010. Дело в том что раньше базы данных я создавал внутри Visual Basic 2010, но эти БД не отражались в SQL и плюс работали только на одном ПК.Теперь создал БД в SQL Server 2008, но не могу найти как в Visual Basic 2010 включить эту БД. Надеюсь не слишком тупо описал. Заранее спасибо.

Listbox

rusiko — Sat, 25 Feb 2012 11:28:50 GMT

Привет.Подскажите как сделать так чтоб в Visual Basic 2010 при выходе из формы данные в ListBox не стирались (сохранялись).Спасибооо большое!!!!!!!

GridView заполнять в ручную

roma_rio — Fri, 24 Feb 2012 17:40:34 GMT

Есть текстовый файл. Загружаю его в директорию сайт\Files оттуда читаю по-строчно и вытаскиваю только необходимые данные.
Извлеченными данными хочу заполнить GridView и после нажатия кнопки эти данные добавлять в БД.
Нужные данные читаю, могу вывести в Label, но в GridView не могу запихнуть. Может я чего то не понимаю. Или для такой задачи мне GridView не подойдет?

Как прикрепить CMS непосредственно к одной из колонок контрола DGV

Scryaga — Sun, 19 Feb 2012 11:03:51 GMT

Подскажите, пожалуйста, как программным путём прикрепить контектное меню к определённой колонке в DataGridView?
Например, имеется программно-созданный DGV с четырьмя колонками, одна из которых отображает графические данные.

Private Sub DataGridView1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
    Dim HitTest As System.Windows.Forms.DataGridView.HitTestInfo
    Dim CM As New ContextMenuStrip
    HitTest = DataGridView1.HitTest(e.X, e.Y)
    Select Case e.Button
      Case System.Windows.Forms.MouseButtons.Right
        Select Case e.Button
          Case MouseButtons.Right
            CM.Items.Clear()
            CM.Items.Add("Загрузить...")
            CM.Items.Add("Удалить...")
            CM.Items.Add("Создать водяной знак...")
            CM.Items.Add("Копировать")
            DataGridView1.ContextMenuStrip = CM
            DataGridView1.ContextMenuStrip.Show(DataGridView1, New Point(e.X, e.Y))
        End Select
    End Select
  End Sub

Трагедия с картинкой в День Святого Валентина!!!

Ann — Tue, 14 Feb 2012 13:51:17 GMT

Здравствуйте, дорогие наши Волшебники!

С Праздником вас всех!!!

Есть у меня такая беда: посетитель закачивает картинку на сервер, а потом я ВРУЧНУЮ добавляю превьюшку к этой самой картинке...

Может ли кто-нибудь из присутствующих здесь Мужчин гармонично вписать код в уже имеющуюся страницу, чтобы при закачке картинки сохранялась и превьюшка с размером 150 пикселей по большей стороне? Интересует формат JPG.

Сейчас код страницы такой:

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>
<script runat=server>
Sub SubmitUploadFile(ByVal sender As Object, ByVal e As EventArgs)
	Dim strFileName, strRootUpload, strUniqueName, PathToUploadFile, CheckFile As String 
	Dim Index As Integer
	If Not (frmFileUpload.PostedFile Is Nothing) then 
	Try 
		strFileName = frmFileUpload.PostedFile.FileName 
	If strFileName <> "" then 
		strFileName = strFileName.Replace("/", "\")
		Index = strFileName.LastIndexOf("\")
		strFileName = strFileName.Substring(Index + 1)
		strRootUpload = Server.MapPath("pictures")
		strUniqueName = "picture_big.jpg"
		frmFileUpload.PostedFile.SaveAs(strRootUpload & "\" & strUniqueName)
		Response.Redirect("pictures/picture_big.jpg")
	End If
	Catch
	End Try
	End If
End Sub
</script>
<html>
<body>
<form runat="server">
<center>
		<table>
			<tr> 
				<td>
				<Input ID="frmFileUpload" Type="File" runat="server"><br><br>
				<asp:Button ID="btnUploadFile" Text="загрузить файл" Type="Submit" OnClick="SubmitUploadFile" runat="server" />
				</td>
			</tr>
		</table>
</center>
</form>
</body>
</html>

Редактирование всех строк в checkedlistbox при нажатии кнопки

71kosty@n97 — Wed, 08 Feb 2012 16:45:20 GMT

В моём приложении в элементе управления checkedlistbox появляется список файлов, которые необходимо удалить и создаётся новый список.
При нажатии кнопки, определённые файлы удаляются, далее программа переводит в listbox новый спмсок файлов этим кодом:

 Dim i As Integer
  'перевод в ListBox1
  For i = 0 To CheckedListBox1.CheckedItems.Count - 1
   rootform.ListBox1.Items.Add(CheckedListBox1.CheckedItems(i))
  Next i
  If rootform.ListBox1.Items.Count > 0 Then
  End If

Но строки "C:\Games\data\maps\props.img" должны превратиться в "IMG platform:/DATA/MAPS/PROPS.IMG" и так со всеми строками
Вроде мысли есть на счёт кода, но получается провальная реализация.
Помогите

Обработка данных при работе с DataGridView

Scryaga — Sun, 05 Feb 2012 15:40:29 GMT

Пример показывает, как введённые данные (включая фото) в ячейки DataGridView можно сохранить в XML-файл, созданный приложением автоматически. При новом запуске вся таблица сохранённых данных будет отображена в ячейках DataGridView.

Эвенты в VB.NET

[i]Pro — Fri, 27 Jan 2012 20:01:16 GMT

Столкнулся с небольшой проблемой с эвентами, при переводе кода с C# на VB.NET, исходный текст на C#:

			IPAddress[] hosts = Dns.Resolve(Dns.GetHostName()).AddressList;
			if (hosts.Length == 0)
				throw new NotSupportedException("This computer does not have non-loopback interfaces installed!");
			m_PacketMonitors = new PacketMonitor[hosts.Length - 1];
			for(int i = 0; i < m_PacketMonitors.Length - 1; i++) {
				m_PacketMonitors[i] = new PacketMonitor(hosts[i]);
				m_PacketMonitors[i].NewPacket += new NewPacketEventHandler(this.OnNewPacket);
			}

OnNewPacket:

		private void OnNewPacket(PacketMonitor pm, Packet p) {
			m_Packets.Add(p);
		}

NewPacketEventHandler - хэндлер из скомпилированной библиотеки, подключенной к проекту, переводим все это дело на VB:

   Sub Init()
        'Dim Packet As Packet
        Dim hosts As IPAddress() = Dns.Resolve(Dns.GetHostName()).AddressList

        If hosts.Length = 0 Then
            Debug("This computer does not have non-loopback interfaces installed!")
        End If

        m_PacketMonitors = New PacketMonitor(hosts.Length - 1) {}

        For i = 0 To m_PacketMonitors.Length - 1
            m_PacketMonitors(i) = New PacketMonitor(hosts(i))
            '>>>
            m_PacketMonitors(i).NewPacket += New NewPacketEventHandler(AddressOf OnNewPacket) 'Ошибко
            '<<<
        Next
    End Sub

    Private Sub OnNewPacket(ByVal pm As PacketMonitor, ByVal p As Packet)
        If p.Protocol = PacketMonitor.Protocol.Tcp Then
            MsgBox("fuck yeah")
        End If
    End Sub

Ошибка подсвеченного места:

Public Event NewPacket(pm As Org.Mentalis.Network.PacketMonitor.PacketMonitor, p As Org.Mentalis.Network.PacketMonitor.Packet)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event.

В эвентах полный пень, прошу помощи)

ПыСы
Все это надо запилить в отдельном классе (Первый проект, который на C#, делает все в пределе класса формы)

Как сохранить картинку, введённую в ячейку в DataGridView?

Scryaga — Sun, 22 Jan 2012 16:54:42 GMT

На сегодняшний день не хватает знаний, - как сохранять картинки, введённые в ячейки DataGridView?

 Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As System.Windows.Forms. _
        DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
    'загружаем картинку из файла в выбранную ячейку в DataGridView
    Dim myFile As String
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
      myFile = OpenFileDialog1.FileName
      DataGridView1.Item(point1.X, point1.Y).Value = Image.FromFile(myFile)
    End If
  End Sub

  Private Sub DataGridView1_CellMouseEnter(sender As Object, e As System.Windows.Forms. _
        DataGridViewCellEventArgs) Handles DataGridView1.CellMouseEnter
    'вычисление координат курсора
    point1.X = e.ColumnIndex
    point1.Y = e.RowIndex
  End Sub