Social View

Status
Niet open voor verdere reacties.
Luuknl

Luuknl

Terugkerende gebruiker
Lid geworden
29 jan 2010
Berichten
1.193
Jahoor hier is dan even een beta van mijn programma: Social View. Als jullie ook toevallig het topic van codGmer hebben gevolgd (klik voor topic) dan denken jullie zeker dat ik zijn idee heb gestolen. Nou eigenlijk is dat ook zo, maar wel in goed overleg met hem op msn.
Hij had mij zijn project toegestuurd maar het was een grote rommel naar mijn zeggen. Ik zei dus tegen hem op msn: "Ik stuur je binnen een paar dagen wel ff mijn eigen versie van het programma." En zo was het project aan mijn kant "geboren" :P

Maar op deze site kan je hem downloaden: www.socialview.weebly.com/downloads.html
De site is niet af maar dat maakt nog even niet uit :)

Het doel van het programma is om een aantal sociale netwerksites bij elkaar te houden, zonder je browser op te hoeven starten. Nu kan je gewoon ff snel iets kijken..

Graag jullie reacties/tips.
 
Laatst bewerkt:
Die rechtstreekse link werkt niet bij mij ("Site not published"). Via de hoofdpagina en daar Downloads kiezen kom ik er wel.

Graag ook even in je startposting aangeven wat het programma doet / wat de bedoeling is van het programma.

EDIT: Beide zaken zijn ondertussen door luuknl aangepast in zijn startposting.

Tijs.
 
Laatst bewerkt:
Haha, oogt meteen goed!:thumb:
Misschien even een logootje, want anders lijkt het zo amateuristisch... :P
De linkjes in de "over" pagina doen het niet en de achtergrond kleur insteller neemt de tabbladen + de ruimte ernaast niet mee...

Misschien is een knop waarmee je tabbladen kunt weghalen/toevoegen nog leuk, want persoonlijk heb ik geen LinkedIn nodig en dan kan ik dat voor mezelf weghalen...

Verder is het net als CViewer een goed programma!
 
Logo komt later nog wel:P Is inderdaad amateuristisch maar dat komt bij de release wel een keertje ;)

Die kleur zal ik meenemen, ik dacht dat ik het er vorige keer niet mooi uit vond zien, maar nu wel :)
Knop komt er misschien nog.
 
Een ToolBar met : Volgende, Vorige, Stop, Refresh e.d. ?? Is dat geen optie?
 
Ja klopt, ben ik helemaal vergeten. Ik had het al wel in mijn hoofd maar ben het ff kwijt geraakt. Zit in de volgende update! ;)
 
Handig!
Wel een paar kleine opmerkingen
Waarschijnlijk zijn er al een paar gezegt.

-Icon (logo)
-Je laad alle tabs in 1 keer. Zou het beter zijn om zoals Chrome 1ste->2de te laden dus bv met alleen 2de laden als 1 geladen is?
Door alle tabs in 1 keer kreeg ik een Virtual Memory low error
-Youtube logo is niet zo heel mooi ( probeer is op iconarchive te kijken) het is opzicht wel mooi maar het past niet bij de andere icoonen , en omdat die andere moeilijk te verranderen zijn zou ik die youtube verranderen
-(half vraag , half tip :D ) Wat gebruik je als taal convert? Doe je gewoon dat label = "ENGELS" of zeg je echt dat je resourses gebruikt?
Als je geen resourses gebruikt zou ik dit doen. Het maakt alles sneller , en het is ook makkelijker om nieuwe talen toe te voegen.
-Hoe werkt je updater? Is dat die van Mighty Atom?

En dan als laatste: -Ik heb gezien dat er nogal veel ongebruikte referenties zijn. Mischien is wat weg doen zodat het nog wat sneller gaat.

Goed idee in ieder geval :thumb:
 
Laatst bewerkt:
Oke. Fijn voor de tips. Ik werk er even momenteel neit meer aan maar dit zijn ff wat dingen die ik wil vragen:
1. wat is een resourse en hoe maak ik dat? Ik doe nu inderdaad nog telkens met label1.text = ""
dat is inderdaad nogal onhandig...
2. Dat van de tabs na elkaar laden is een optie, maar als je als gebruiker niet geinterreseerd bent in hyves dan heeft het geen zin om te moeten wachten totdat youtube geladen is... (kan wel anders, maar dat word dan geavanceerder)
3. Mijn updater.... tja liever geheimpje, maar als je het topic van mij en the Mighty Atom doorleest kom je er snel achter....
 
1. Een resource is eigenlijk je programma Design maar dan in andere talen. De code blijft hetzelfde voor elke taal. Dus dan kan je bijvoorbeeld als je op Dutch zet alles verranderen in de designer (andere taal en eventueel knoppen vergroten) Moet maar is zoeken op Google naar Globalization and Localization.
2. Je zou bijvoorbeeld een optie kunnen maken tussen je favoriete tabs? bv. 1)Facebook 2).... en zo laden
3. De updater was geen vraag hoor :D Zelf maak ik mijn eigen updater die veel kan omdat al mijn programmas de zelfde list downloaden (http://www.shutti.co.nr/UPDATER/SHUTTIUPDATER.txt) Hij zoekt naar bv <VERSION><PROGRAMMAHIER> en krijgt de versie. Er zijn andere manieren maar dit was makkelijk uit te breiden. Zo zijn resources van talen DLL bestanden die in een map NL EN ,.. zitten ik vond het handig om talen appart te downloaden zodat je geen overbodige hebt.

Bij die resources is het makkelijk voor designer (gewoon in form eigenschappen : Localize = TRUE en dan de taal) Maar in de code (Messagebox,..) is het wat moeilijker dan moet je zeggen dat hij het van het huidige Culture haalt.

En van die references zie je vooral bij je Updater:

' © Luuknl
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports Social_View.My
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Net
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace Social_View
<DesignerGenerated> _
Public Class Updater
Inherits Form
' Methods
<DebuggerNonUserCode> _
Public Sub New()
AddHandler MyBase.Load, New EventHandler(AddressOf Me.Updater_Load)
Updater.__ENCAddToList(Me)
Me.InitializeComponent
End Sub

<DebuggerNonUserCode> _
Private Shared Sub __ENCAddToList(ByVal value As Object)
Dim list As List(Of WeakReference) = Updater.__ENCList
SyncLock list
If (Updater.__ENCList.Count = Updater.__ENCList.Capacity) Then
Dim index As Integer = 0
Dim num3 As Integer = (Updater.__ENCList.Count - 1)
Dim i As Integer = 0
Do While (i <= num3)
Dim reference As WeakReference = Updater.__ENCList.Item(i)
If reference.IsAlive Then
If (i <> index) Then
Updater.__ENCList.Item(index) = Updater.__ENCList.Item(i)
End If
index += 1
End If
i += 1
Loop
Updater.__ENCList.RemoveRange(index, (Updater.__ENCList.Count - index))
Updater.__ENCList.Capacity = Updater.__ENCList.Count
End If
Updater.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
End SyncLock
End Sub

<MethodImpl((MethodImplOptions.NoOptimization Or MethodImplOptions.NoInlining))> _
Private Sub bgwUpdateChecker_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
If MyProject.Computer.Network.IsAvailable Then
Try
If (Operators.CompareString(New WebClient().DownloadString("http://luuknl.woelmuis.nl/Programma%20Bestanden/Social%20View/Version.txt"), MyProject.Application.Info.Version.ToString.Replace(".", Nothing), False) > 0) Then
Me.UpdateAvailable = True
Else
Me.UpdateAvailable = False
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
If (MySettingsProperty.Settings.Language = "Nederlands") Then
Interaction.MsgBox("Er kan geen verbinding worden gemaakt. Mogelijk is er geen internet verbinding, of is de website niet beschikbaar.", MsgBoxStyle.OkOnly, Nothing)
End If
If (MySettingsProperty.Settings.Language = "Engels") Then
Interaction.MsgBox("Unable to connect to the Internet. There may be no internet connection, or the website is unavailable.", MsgBoxStyle.OkOnly, Nothing)
End If
If (MySettingsProperty.Settings.Language = "Duits") Then
Interaction.MsgBox("Konnte keine Verbindung zum Internet herstellen. Es kann keine Internet-Verbindung, oder die Website nicht verf" & ChrW(252) & "gbar ist.", MsgBoxStyle.OkOnly, Nothing)
End If
ProjectData.ClearProjectError
End Try
Else
If (MySettingsProperty.Settings.Language = "Nederlands") Then
Interaction.MsgBox("Er is geen verbinding met het internet. Controleer de instellingen en probeer het opnieuw.", MsgBoxStyle.OkOnly, Nothing)
End If
If (MySettingsProperty.Settings.Language = "Engels") Then
Interaction.MsgBox("There is no connection to the Internet. Please check your settings and try again.", MsgBoxStyle.OkOnly, Nothing)
End If
If (MySettingsProperty.Settings.Language = "Duits") Then
Interaction.MsgBox("Es besteht keine Verbindung zum Internet. Bitte " & ChrW(252) & "berpr" & ChrW(252) & "fen Sie Ihre Einstellungen und versuchen Sie es erneut", MsgBoxStyle.OkOnly, Nothing)
End If
End If
End Sub

Private Sub bgwUpdateChecker_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
Me.Button1.Enabled = True
Me.pgbUpdateCheck.Visible = False
If Me.UpdateAvailable Then
If (MySettingsProperty.Settings.Language = "Nederlands") Then
Me.Label1.Text = "Er is een update beschikbaar."
Me.LinkLabel1.Visible = True
Me.LinkLabel1.Text = "Klik hier om de nieuwste versie te downloaden."
End If
If (MySettingsProperty.Settings.Language = "Engels") Then
Me.Label1.Text = "An update is available."
Me.LinkLabel1.Visible = True
Me.LinkLabel1.Text = "Click here to download the latest version."
End If
If (MySettingsProperty.Settings.Language = "Duits") Then
Me.Label1.Text = "Ein Update ist verf" & ChrW(252) & "gbar"
Me.LinkLabel1.Visible = True
Me.LinkLabel1.Text = "Klicken Sie hier um die neueste Version herunterladen"
End If
Else
If (MySettingsProperty.Settings.Language = "Nederlands") Then
Me.Label1.Text = "Er is geen update beschikbaar."
End If
If (MySettingsProperty.Settings.Language = "Engels") Then
Me.Label1.Text = "No update available."
End If
If (MySettingsProperty.Settings.Language = "Duits") Then
Me.Label1.Text = "Kein Update verf" & ChrW(252) & "gbar."
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Button1.Enabled = False
If (MySettingsProperty.Settings.Language = "Nederlands") Then
Me.Label1.Text = "Bezig met controleren op update, een ogenblik geduld..."
End If
If (MySettingsProperty.Settings.Language = "Engels") Then
Me.Label1.Text = "Checking for updates, please wait..."
End If
If (MySettingsProperty.Settings.Language = "Duits") Then
Me.Label1.Text = "Suche nach Updates, Bitte warten"
End If
Me.pgbUpdateCheck.Visible = True
Me.bgwUpdateChecker.RunWorkerAsync
Me.LinkLabel1.Visible = False
End Sub

<DebuggerNonUserCode> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.pgbUpdateCheck = New ProgressBar
Me.Label1 = New Label
Me.bgwUpdateChecker = New BackgroundWorker
Me.LinkLabel1 = New LinkLabel
Me.Button1 = New Button
Me.SuspendLayout
Dim point2 As New Point(&H11, &H1D)
Me.pgbUpdateCheck.Location = point2
Me.pgbUpdateCheck.MarqueeAnimationSpeed = &H19
Me.pgbUpdateCheck.Name = "pgbUpdateCheck"
Dim size2 As New Size(&H12D, &H17)
Me.pgbUpdateCheck.Size = size2
Me.pgbUpdateCheck.Style = ProgressBarStyle.Marquee
Me.pgbUpdateCheck.TabIndex = 5
Me.pgbUpdateCheck.Visible = False
Me.Label1.AutoSize = True
point2 = New Point(14, 13)
Me.Label1.Location = point2
Me.Label1.Name = "Label1"
size2 = New Size(&H11E, 13)
Me.Label1.Size = size2
Me.Label1.TabIndex = 4
Me.Label1.Text = "Druk op 'Zoek naar updates' om te controleren op updates."
Me.LinkLabel1.AutoSize = True
point2 = New Point(14, &H3A)
Me.LinkLabel1.Location = point2
Me.LinkLabel1.Name = "LinkLabel1"
size2 = New Size(&HE4, 13)
Me.LinkLabel1.Size = size2
Me.LinkLabel1.TabIndex = 7
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Tag = ""
Me.LinkLabel1.Text = "Klik hier om de nieuwste versie te downloaden."
Me.LinkLabel1.Visible = False
Me.Button1.AutoSize = True
point2 = New Point(&H15A, &H1D)
Me.Button1.Location = point2
Me.Button1.Name = "Button1"
size2 = New Size(110, &H17)
Me.Button1.Size = size2
Me.Button1.TabIndex = 6
Me.Button1.Text = "Zoek naar updates"
Me.Button1.UseVisualStyleBackColor = True
Dim ef2 As New SizeF(6!, 13!)
Me.AutoScaleDimensions = ef2
Me.AutoScaleMode = AutoScaleMode.Font
size2 = New Size(&H1E2, &H54)
Me.ClientSize = size2
Me.Controls.Add(Me.pgbUpdateCheck)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.LinkLabel1)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
Me.Name = "Updater"
Me.StartPosition = FormStartPosition.CenterScreen
Me.Text = "Updater"
Me.ResumeLayout(False)
Me.PerformLayout
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs)
Process.Start("http://luuknl.woelmuis.nl/Programma%20Bestanden/Social%20View/SView.zip")
End Sub

Private Sub Updater_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.LinkLabel1.Visible = False
If (MySettingsProperty.Settings.Language = "Nederlands") Then
Me.Label1.Text = "Druk op 'Zoek naar updates' om te controleren op updates."
Me.Button1.Text = "Zoek naar updates"
End If
If (MySettingsProperty.Settings.Language = "Engels") Then
Me.Label1.Text = "Press 'Check for updates' to check for updates."
Me.Button1.Text = "Check for updates"
End If
If (MySettingsProperty.Settings.Language = "Duits") Then
Me.Label1.Text = "Dr" & ChrW(252) & "cken Sie 'Nach Updates suchen' um nach Updates zu suchen."
Me.Button1.Text = "Nach Updates suchen"
End If
End Sub


' Properties
Friend Overridable Property bgwUpdateChecker As BackgroundWorker
<DebuggerNonUserCode> _
Get
Return Me._bgwUpdateChecker
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As BackgroundWorker)
Dim handler As DoWorkEventHandler = New DoWorkEventHandler(AddressOf Me.bgwUpdateChecker_DoWork)
Dim handler2 As RunWorkerCompletedEventHandler = New RunWorkerCompletedEventHandler(AddressOf Me.bgwUpdateChecker_RunWorkerCompleted)
If (Not Me._bgwUpdateChecker Is Nothing) Then
RemoveHandler Me._bgwUpdateChecker.DoWork, handler
RemoveHandler Me._bgwUpdateChecker.RunWorkerCompleted, handler2
End If
Me._bgwUpdateChecker = WithEventsValue
If (Not Me._bgwUpdateChecker Is Nothing) Then
AddHandler Me._bgwUpdateChecker.DoWork, handler
AddHandler Me._bgwUpdateChecker.RunWorkerCompleted, handler2
End If
End Set
End Property

Friend Overridable Property Button1 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
If (Not Me._Button1 Is Nothing) Then
RemoveHandler Me._Button1.Click, handler
End If
Me._Button1 = WithEventsValue
If (Not Me._Button1 Is Nothing) Then
AddHandler Me._Button1.Click, handler
End If
End Set
End Property

Friend Overridable Property Label1 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label1 = WithEventsValue
End Set
End Property

Friend Overridable Property LinkLabel1 As LinkLabel
<DebuggerNonUserCode> _
Get
Return Me._LinkLabel1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As LinkLabel)
Dim handler As LinkLabelLinkClickedEventHandler = New LinkLabelLinkClickedEventHandler(AddressOf Me.LinkLabel1_LinkClicked)
If (Not Me._LinkLabel1 Is Nothing) Then
RemoveHandler Me._LinkLabel1.LinkClicked, handler
End If
Me._LinkLabel1 = WithEventsValue
If (Not Me._LinkLabel1 Is Nothing) Then
AddHandler Me._LinkLabel1.LinkClicked, handler
End If
End Set
End Property

Friend Overridable Property pgbUpdateCheck As ProgressBar
<DebuggerNonUserCode> _
Get
Return Me._pgbUpdateCheck
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As ProgressBar)
Me._pgbUpdateCheck = WithEventsValue
End Set
End Property


' Fields
Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
<AccessedThroughProperty("bgwUpdateChecker")> _
Private _bgwUpdateChecker As BackgroundWorker
<AccessedThroughProperty("Button1")> _
Private _Button1 As Button
<AccessedThroughProperty("Label1")> _
Private _Label1 As Label
<AccessedThroughProperty("LinkLabel1")> _
Private _LinkLabel1 As LinkLabel
<AccessedThroughProperty("pgbUpdateCheck")> _
Private _pgbUpdateCheck As ProgressBar
Private components As IContainer
Private UpdateAvailable As Boolean
End Class
End Namespace
Klik om te vergroten...

Veel te veel references in inputs die niet worden gebruikt
Maar was je daar ook al niet met talen bezig precies?

Zie wat ik bedoel: Als je nu een form maakt dan heb je een from.resx ALs je de taal verranderd heb je formnl.resx dus kan je uit die resource de taal halen die in strings is opgeslagen. Zo kan je dus met 1 regel i.p.v. regel per taal een tekst ]
msgbox(resourses.getstring("MSG_NOCONNECTION")
 
Laatst bewerkt:
Tja dat van resources snap ik nog steeds niet helemaal. Hoe maak je dat nou dan?

En ten tweede wat zijn references eigenlijk? Wat jij allemaal laat zien in die code heb ik sirieus echt niet allemaal getypt hoor...
 
Je kunt ook met configuratiebestanden de taal veranderen. Dit is heel makkelijk als je talen wil toevoegen en/of aanpassen. Hier een handleiding.

Post #500 :D
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan