Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Applikation +dubbla skärmar

Postades av 2007-03-06 23:23:35 - Rickard Lindgren, i forum vb.net, Tråden har 4 Kommentarer och lästs av 813 personer

Hepp,
En kund till mig vill koppla en mätapparat till en laptop. Laptopen ska köra ett mätprogram som hämtar in mätvärden och visar dem i en applikation. Utöver det vill kunden kunna koppla en extern skärm till laptopen för att även på den skärmen kunna visa mätvärden i ett fullskärmsfönster.

Någon som vet vad som behövs för utrustning till laptopen för att kunna genomföra detta?
Och, går det att med vb.net/.net 2 få två olika fönster att lägga sig på respektive skärm?

/Rickard


Svara

Sv: Applikation +dubbla skärmar

Postades av 2007-03-07 11:52:12 - Andreas Hillqvist

Är det en befintlig applikation eller utvecklar ni mätprogramet?


Svara

Sv:Applikation +dubbla skärmar

Postades av 2007-03-07 13:48:16 - Rickard Lindgren

Mätvärdena kommer från en apparat som kunden själv utvecklat.
Applikationen som hämtar in värdena utvecklar jag.

/Rickard


Svara

Sv: Applikation +dubbla skärmar

Postades av 2007-03-08 01:23:44 - Andreas Hillqvist

Du kan använda Screen.AllScreens för att kolla om det finns fler än en skärm:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	For Each x As Screen In Screen.AllScreens
		If Not x.Primary Then
			Dim f As New Form2
			f.StartPosition = FormStartPosition.Manual
			f.Location = x.WorkingArea.Location
			f.Size = x.WorkingArea.Size
			f.WindowState = FormWindowState.Maximized
			f.Show(Me)

			Exit For
		End If
	Next
End Sub

Koden kollar om det finns fler än den primära skärmen och visar i så fall form2 på den skärmen.

Testad snabbt på min laptop med extern skärm.

Den koden rapporterar inget om det saknas extern skärm. Du kanske då vill visa en message box med ett meddelande om att ingen "extern" skärm hittades och/eller visa form2 ändå.

Du skulle oxå kunna lägga koden i Form 2 istället:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Dim f As New Form2
	f.Show(Me)
End Sub


Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	For Each x As Screen In Screen.AllScreens
		If Not x.Primary Then
			Me.StartPosition = FormStartPosition.Manual
			Me.Location = x.WorkingArea.Location
			Me.Size = x.WorkingArea.Size
			Me.WindowState = FormWindowState.Maximized

			Exit For
		End If
	Next
End Sub


Svara

Sv:Applikation +dubbla skärmar

Postades av 2007-03-08 23:15:04 - Rickard Lindgren

Andreas,
Jag har provat liknande kod samt en extern skärm idag, det verkar funka prima.
Tack för din hjälp!

/Rickard


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 725
27 958
271 751
319
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies