--- title: "Jag behöver Din hjälp!" type: "forum-thread" url: "https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page2" topic: ".NET" topic_url: "https://www.webforum.nu/amne/dotnet" author: "kaktusen" published: "2002-11-03T22:06:58.000Z" updated: "2002-11-27T20:58:07.000Z" replies: 89 views: 1922 page: 2 pages: 5 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp" --- # Jag behöver Din hjälp! _Sida 2 av 5._ ## #21 — kaktusen, 2002-11-05T19:57Z Tack det fungerade! Mvh Permalänk: https://www.webforum.nu/p/845369 ## #22 — kaktusen, 2002-11-05T21:01Z Hej igen, har ännu en fråga: Kikade lite på sidan du länkade till och den var mkt nyttig. Försökte mig på att göra en "Hjälpruta" som skall finnas uppe till höger och när man trycker där skall en popup ruta komma upp med en text. Förstod dock inte riktigt hur man skulle göra och var man skulle skriva in texten: If Button = 2 then form1.PopupMenu "mnuTestPopUp" End If Kanske du kan hjälpa mig? Mvh Permalänk: https://www.webforum.nu/p/845436 ## #23 — niko, 2002-11-05T22:18Z Vad består "Hjälprutan" av? Är det ett menyval? I så fall så skiver du så här: ``` Private Sub dinMeny_Click() msgbox "Nånting .." End Sub ``` Om "dinMeny" är det namn du gett menyvalet i menyeditorn. Permalänk: https://www.webforum.nu/p/845496 ## #24 — kaktusen, 2002-11-05T22:24Z Tack så mycket! Det fungerade alldeles utmärkt! Permalänk: https://www.webforum.nu/p/845499 ## #25 — kaktusen, 2002-11-06T21:18Z hej igen, nu har jag kommit relativt långt med programmet, men programmet är tänkt för betalande medlemmar. Och iom. att jag gör dessa tabeller länkbara till en webbadress så syns denna adress då man skriver in i browsern. Och vad jag kan komma på är att det enda sättet att hindra detta är att man har en lösenordskyddatsida. För om den betalande medlemmen inte fortsätter att betala utan har kommit på att det går att läsa all info via vår hemsida gratis så är det ju självklart att han gör det. Så frågan är nu, hur gör jag det enklast för mig att lösenordsskydda sidorna jag har länkat i programmet? Eller finns det något annat sätt att göra? tacksam för svar! vänliga hälsningar Permalänk: https://www.webforum.nu/p/846158 ## #26 — niko, 2002-11-06T21:39Z Wow .. Kan du ta det igen? Undrar du hur man skapar publika sidor som går att surfa mot via din VB-app men inte ifrån en vanlig webläsare? Eller .. Undrar du rent allmänt hur man lösenordskyddar information på nätet? Permalänk: https://www.webforum.nu/p/846177 ## #27 — kaktusen, 2002-11-07T06:58Z Jo, jag vill ha lösenordsskyddade sidor och när man väl skrivit in passwordet så skall man vara inloggad UTAN att bli utloggad (session) efter en viss tid, utan utloggad blir man då man stänger ner programmet. Vilket sätt är smidigast att göra på? Tack! Permalänk: https://www.webforum.nu/p/846382 ## #28 — niko, 2002-11-07T09:20Z Det finns en mängd olika sätt att skapa lösenordsskyddade websidor beroende på vilken teknik man använder på servern: ASP, ASP.NET, PHP, Perl ... Möjlighet finns också att lägga skyddet i själva Webservern: IIS, Apache. Jag vet inte om något sätt är "smidigare" än nåt annat, det beror helt på vad man har tillgång till och erfarenhet av. Fast detta har inte längre något med VB eller din applikation att göra. Din applikation kommer i sammanhanget bara att uppföra sig som vilken webläsare som helst. Skyddet bör inte ligga **där** eftersom det är för lätt att kringgå. Permalänk: https://www.webforum.nu/p/846463 ## #29 — kaktusen, 2002-11-07T15:13Z oki tack för svaret. Hmm...jag skulle vilja skriva något längst ner i programmet, typ "Välkommen". Hur gör jag detta utan att behöva länka till en hemsida? Försökte med "TextBox" men visste inte riktigt hur man skulle göra. Jag vill även kunna bifoga en bild i programmet. Hur gör man? Tack på förhand! Permalänk: https://www.webforum.nu/p/846708 ## #30 — kaktusen, 2002-11-08T08:51Z Nu börjar programmet bli klart, endast lite små detaljer kvar! En fråga: Om man stänger ned programmet (genom att trycka på korset längst upp till höger) så stängs den ner vilket iofs är bra :) Men går det att göra så att det kommer upp ett meddelande, t.ex. "Är du säker på att du vill avsluta?" Mvh Permalänk: https://www.webforum.nu/p/847149 ## #31 — niko, 2002-11-08T18:00Z ``` Private Sub Form_Unload(Cancel As Integer) If MsgBox("Är du säker på att du vill avsluta?", vbYesNo + vbQuestion) = vbNo Then Cancel = 1 End If End Sub ``` Permalänk: https://www.webforum.nu/p/850387 ## #32 — kaktusen, 2002-11-08T19:24Z Du är en pärla ;) Eller en mästare med andra ord. TACK! Permalänk: https://www.webforum.nu/p/850428 ## #33 — kaktusen, 2002-11-08T19:34Z EN sista fråga, sedan ska du få slippa mig :) Vet du hur man gör för att göra ett lösenordsskydd i själva programmet? Som jag har just nu är det webbsidorna som är lösenordskyddade men skulle också vilja ha att man måste ha rätt lösenord för att komma in i programmet också. Vet du hur man gör? Tack! Permalänk: https://www.webforum.nu/p/850431 ## #34 — niko, 2002-11-09T00:22Z Well, en superenkel variant med ett hårdkodad lösenord kan se ut så här: ``` Private Sub Form_Load() If trim(InputBox("Ange lösenord för programmet!", "Lösenord")) <> "jättehemligt" Then MsgBox "Fel lösenord. Programmet stängs!", vbCritical End End If ' Övrig kod ... ' osv ... End Sub ``` > EN sista fråga, sedan ska du få slippa mig Hur så? Är programmet klart? Permalänk: https://www.webforum.nu/p/850731 ## #35 — kaktusen, 2002-11-09T08:18Z Kanon det fungerade! Men eftersom man inte får ha flera "Form_Load" script så undrar jag hur jag ska lägga in dessa också: Private Sub Form_Unload(Cancel As Integer) If MsgBox("Är du säker på att du vill avsluta?", vbYesNo + vbQuestion) = vbNo Then Cancel = 1 End If End Sub och även: Private Sub Form_Load() Me.Caption = "Namn" WebBrowser1.Navigate "www.minsida.se/sida1.asp" ' .... ' .... End Sub Tack på förhand! Permalänk: https://www.webforum.nu/p/850874 ## #36 — Marcus E, 2002-11-09T13:00Z > **kaktusen skrev:** > > Kanon det fungerade! > > Men eftersom man inte får ha flera "Form_Load" script så undrar jag hur jag ska lägga in dessa också: Öh? Du frågade om hur man gjorde programmet i Visual Basic. Nu börjar du prata om script. Vad är det du använder, egentligen? Handlar det om ASP och VBScript borde tråden ha postats i ASP-forumet istället. Ska jag flytta den dit? Permalänk: https://www.webforum.nu/p/850957 ## #37 — kaktusen, 2002-11-09T15:14Z Hej Marcus, Jag vore väldigt tacksam om denna sträng fick ligga kvar här. Då signaturen "niko" är mkt kunnig inom Visual Basic och hjälper mig otroligt mkt. Finns risk att han inte läser denna sträng om du postar den i en annat forum. Som sagt, vore mkt tacksam om denna sträng fick ligga kvar där den ligger. Vänliga hälsningar Permalänk: https://www.webforum.nu/p/851022 ## #38 — Nexus86, 2002-11-09T15:20Z Lägg ihop det som står innuti Form_Load så det blir: ``` Private Sub Form_Load() Me.Caption = "Namn" WebBrowser1.Navigate "www.minsida.se/sida1.asp" If trim(InputBox("Ange lösenord för programmet!", "Lösenord")) <> "jättehemligt" Then MsgBox "Fel lösenord. Programmet stängs!", vbCritical End End If ' Övrig kod ... ' osv ... End Sub ``` Du behöver inte ens ha med ``` ' Övrig kod ... ' osv ... ``` eller ``` ' .... ' .... ``` saker som står efter ett ' betyder att det är en kommentar och alltså ingen kod. Permalänk: https://www.webforum.nu/p/851027 ## #39 — kaktusen, 2002-11-09T15:47Z Tack Nexus, men vill även ha med denna kod: Private Sub Form_Unload(Cancel As Integer) If MsgBox("Är du säker på att du vill avsluta?", vbYesNo + vbQuestion) = vbNo Then Cancel = 1 End If End Sub Hur gör jag då? Mvh Permalänk: https://www.webforum.nu/p/851038 ## #40 — niko, 2002-11-09T16:23Z > Hur gör jag då? Du låter den vara som den är? **Form_Unload** och **Form_Load** är olika events. Funkar det inte som det ska? Permalänk: https://www.webforum.nu/p/851054 --- Tråden på webben: https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page2 Föregående sida: https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp.md Nästa sida: https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page3.md