| Вопрос: Игры на VBNet | Добавлено: 04.06.06 11:19 |
Автор вопроса:  Nikolai
|
| Ответы | Всего ответов: 22 |
|
Номер ответа: 16 Автор ответа:  Fever Вопросов: 60 Ответов: 808 |
Профиль | | #16 | Добавлено: 07.06.06 19:03 |
| Волжский Волгоградской области. Пишу на VB6. | ||
|
Номер ответа: 17 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #17 | Добавлено: 07.06.06 19:03 |
| Ухты. Четыре звезды. | ||
|
Номер ответа: 18 Автор ответа: Nikolai Вопросов: 23 Ответов: 58 |
Профиль | | #18 | Добавлено: 07.06.06 19:53 |
| Что значат звёздочки? | ||
|
Номер ответа: 19 Автор ответа: NikolaiВопросов: 23 Ответов: 58 |
Профиль | | #19 | Добавлено: 07.06.06 21:27 |
|
Да сложнова-то мне хоть и интересно.
Ну я понял саму проблему надо как-то обьявить : Me.BackgroundImage = bitmapPath я ошибки подписал. Imports System.io Public Class Form1 Public Shared Function Combine(ByVal path1 As String, ByVal path2 As String) As String 'Получаем путь к картинке (должна лежать возле *.ехе)  im bitmapPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Tany.gif"
'Проверяем наличие файла If Not File.Exists(bitmapPath) Then Throw New FileNotFoundException("Bitmap file not found!" & vbNewLine & bitmapPath) End If 'Пытаемся её загрузить Try im MyBitmap As New Bitmap(bitmapPath)
Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End Function 'почему-то подчёркнуто зелёной волной Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Location = New System.Drawing.Point(670, 473) Me.TransparencyKey = Me.BackColor Me.BackgroundImage = bitmapPath ' Error 3 Name 'bitmapPath' is not declared. F:\NewПробы2005\Прозрачное окно\Прозрачное окно\Form1.vb -=Как "bitmapPath" обьявить?=- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None ' В книге прочитал способ вызова функции txtText.Text = Combine() ' Error 5 Argument not specified for parameter 'path2' of 'Public Shared Function Combine(path1 As String, path2 As String) As String'. F:\NewПробы2005\Прозрачное окно\Прозрачное окно\Form1.vb End Sub Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick Me.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Me.Opacity <= 0 Then Me.Close() Me.Opacity = Me.Opacity - 0.1 End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If Me.Left <= 100 Then Timer1.Enabled = True End Sub Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Me.Left = Left - 1 End Sub End Class |
||
|
Номер ответа: 20 Автор ответа:  a ICQ: 267-795-129 Вопросов: 2 Ответов: 5 |
Профиль | | #20 | Добавлено: 08.06.06 19:03 |
|
Кажется вы просили ссылку на проект авиасимулятора.Я её выкладываю http://vbnet.ru/samples/zip/FSim.zip
зайдите на вкладку примеры и найдите пункт игры и приколы и всё там очень много примеров и 2d и 3d игр !!! |
||
|
Номер ответа: 21 Автор ответа: NikolaiВопросов: 23 Ответов: 58 |
Профиль | | #21 | Добавлено: 08.06.06 22:11 |
| Для K&M зря говоришь что застопорился ведь можно придумать больше разных задач для тех моделей которые уже готовые. Кстати на чём сделаны 3D Max? | ||
|
Номер ответа: 22 Автор ответа: K&MICQ: 225442067 Вопросов: 20 Ответов: 170 |
Профиль | | #22 | Добавлено: 17.06.06 17:02 |
|
1) Тут свои проблемы
2) На 3D Max. |
||